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The  author  gives  no  guarantee  that  the  model  herein  described  is  a  fully  accurate  and  error  free  description 
of  the  Motorola  6800 

The  views  represented  withm  this  report  are  those  of  the  author  alone  and  do  not  necessarily 
represent  the  views  of  the  Ministry  of  Defence  nor  the  Defence  Research  Agency 


Notices: 

Throughout  the  text  the  symbol  &  is  used  to  indicate  a  hexadecimal  number.  However,  m  the  ELLA 
language  this  is  replaced  by  16r,  thus  address  &e000  becomes  ad/16re000  in  ELLA 

Variables  and  Types  which  occur  within  the  6800  mode)  are  indicated  by  bold  type. 

Words  in  the  glossary  arc  indicated  m  italics. 

References  to  the  Bibhography  are  indicated  thus  ’ 
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The  ELXA  Language 

ELLA  is  a  Textual  Language  for  describing  digital  hardware  designs.  The  language  is  de«igDed  so 
that  ELLA  circuit  descriptions  are  alwa^  realisable  in  hardware. 

The  components  of  a  circuit  are  described  in  ELLA  by  functions.  A  function  definition  declares  the 
number  and  types  of  inputs  and  outputs.  The  hm^on  body  is  composed  of  a  number  of  constructs,  which 
describe  how  the  inputs  map  to  the  outputs 

Before  any  functions  may  be  written  in  ELLA  It  is  necessary  to  define  the  variable  types  which  they 
will  use  Thi  is  adiieved  by  means  of  the  TYPE  statement,  e.g. 

TYPE  count  =  NEW  co/(0..12) 

TYPE  addrmodc  *  NEW  (immedl direct |mdex|cxtndl implied! relative) 

The  first  statement  defines  TYPE  count  to  be  an  integer  in  the  range  0. 12.  The  co/  tag  is  necessary  to 
distinguish  that  type  from  any  other  mteger  type  The  second  statement  defines  TYPE  addrmode  as  a  six 
valued  enumerated  type,  with  possible  values  of  immed,  direct,  mdex,  extnd,  unpbed  and  relative 

ELIA  supports  a  wide  variety  of  high  level  constructs  such  as  AWTH  which  performs  mteger 
arithmetic,  DELAY  which  delays  information  between  its  mput  and  output  and  provides  a  means  of 
feedback  from  one  clock  cycle  to  the  next 

The  language  is  strongly  typed  m  order  to  minimise  the  chances  of  the  user  introducing  a  design 
fault.  It  has  a  hierarchial  functionsJ  structure  similar  to  PASCAL. 

The  mam  difference  between  ELLA  and  conventional  programmmg  languages  such  as  C,  PASCAL 
etc  is  that  it  is  a  parallel  rather  than  a  sequential  language  This  is  necessary  to  describe  logic  circuits 
However  since  it  is  a  parallel  language,  to  try  and  express 

LET  a  =  da/S 

LET  a  *  da/4 

is  illegal  since  the  compiler  tries  to  uup.'ement  both  of  these  statements  in  parallel  A  variable  defined  by 
LET  IS  therefore  static  once  assigned  within  a  tunesiep  its  value  cannot  be  changed  within  that  tiniestep 
although  it  can  be  used  as  an  mput  to  other  functions  The  value  of  a  static  variable  can  be  changed  on  a 
diffcrcm  iincstep  however 

For  some  applications,  however,  it  is  more  convemenl  to  program  sequentially,  particularly  for 
complex  high  level  desenpuons  The  SEQ  construct  allows  sequential  programmmg,  with  two  types  of 
dynamic  variables,  which  must  be  defined  before  they  can  be  used,  but  once  defined  may  be  assigned  to 
many  limes  within  the  sequence  The  first  of  these  is  VAR  VARs  are  initialised  to  a  predefined  value  every 
limcslcp.  The  other  type  is  PVAR  {or  STATE  VAR)  These  arc  initialised  at  Umc  0  but  retain  the  latest 
assigned  value  from  one  Umestep  to  the  next  until  they  axe  reassigned  They  are  very  useful  for  makmg 
registers.  Sequential  constructs  can  be  directly  transformed  mto  parallel  ones  using  a  set  of  assembler  tools 

Care  must  be  taken  to  ensure  that  the  same  mstantiatioD  of  the  function  is  being  used  if  the  old 
value  of  the  PVAR  is  required  In  practice  this  means  that  functions  which  contain  constructs  such  as  VAR, 
PVAR,  or  RAM  and  DELAY  functions  become  wrapped  up  mside  parallel  fimctions  which  allow  exphcit 
mstantiation  by  using  the  MAKE  and  JOIN  constructs 

For  a  complete  description  of  the  ELLA  Language  refer  to  the  ELLA  Manual' 
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The  Motorola  6800  Model:  Specification 


My  model  of  the  Motorola  6800  was  developed  from  a  very  limited  amount  of  information  1  had 
the  instruction  set,  the  assembler  mnemonics,  number  of  bytes,  number  of  clock  cycles  required  and  effect 
of  the  function^  1  did  not  know  anything  of  the  order  m  which  internal  subfunctions  are  earned  out  within 
the  miaoprocessor  My  knowledge  of  and  information  on  the  condition  codes  renter  was  also  less  than  ideal 
Since  1  had  no  information  about  the  internal  operations  of  the  6800 1  decided  that  my  model  should 
fulfil  three  critena* 

i)  It  should  perform  the  correct  instruction  for  the  appropriate  instruction  code. 

ii)  It  should  take  the  correct  number  of  clock  cycles  to  complete  each  instruction. 

iii)  All  197  valid  opcodes  should  be  implemented. 

In  addition  I  wished  the  model  to  have  what !  hoped  was  a  realistic  internal  architecture 

The  Motorola  6800  Model:  Variable  Type  Selection 

Nme  different  variable  tvpes  arc  used  withm  the  ELLA  description  (sec  Appendix  A)' 

The  reason  for  this  is  as  follows 

The  Motorola  6800  is  an  cigbt-bii  microprocessor  Therefore  all  data  coming  into  and  out  of  the 
microprocessor  is  eight  bus  wide  and  TYPE  data  provides  this  The  choice  of  TYPE  data  to  be  positive  in 
the  range  0..252  rather  than  signed  -128  to  127  was  made  for  two  reasons, 
i)  The  mathematics  of  mstruciions  such  as  rola  become  easier  to  implement 

u)  Logic  synthesis  is  often  easier  if  there  are  no  negative  numbers 


Since  the  address  space  of  the  6800  is  0  65535  (&fff0  it  was  clear  that  a  sixteen  bit  type. 

TYPE  address  was  needed  This  time  it  was  obvious  that  the  numbers  should  be  positive 

A  four  bit  type,  TYPE  halfbyte  proved  useful  wuhin  the  mstruciion  decoding  functions,  because  the 
more  significant  four  bus  of  an  op-code  always  refers  to  the  addressing  mode  and  the  less  significant  to  the 
instruction 

TYPE  flag  IS  a  two  state  boolean  which  is  useful  m  CASE  clauses 

TYPE  bitiot  IS  the  mtegcr  equivalent  of  TYPE  flag,  u  is  used  m  some  ARITH  statements  as  the 

carry  bit 


TYPE  addrmode  and  TYPE  oinemooic  are  enumerated  types  which  represent  the  addressing  mode 
and  mnemonic  of  an  op-code  m  a  user-friendly  way 

TYPE  count  is  used  in  the  microprocessor’s  mtcmal  structure  to  deicmunc  how  far  through  iht 
instruction  it  is  Smee  the  longest  mslruction  takes  12  cycles  the  maximum  value  of  TYPE  count  is  12 

TYPE  result  is  the  9-bU  answer  of  the  mam  ARITH  functions  within  F?vl  ALU  It  is  necessary 
because  the  9th  bit  is  important  for  setlmg  the  cc  register 


Tbe  Motorola  6800  Model:  Initial  Design 

The  Motorola  6800  is  a  simple  8-bit  Von-Neumann  microprocessor  which  has  two  8-bit  accumulators, 
a  and  b,  an  mdex  register  x,  a  stack  pointer  sp  and  a  condition  codes  renter  cc.  It  also  has  a  program 
counter  pc.  In  addition  I  found  it  useful  to  create  an  address  buffer  addrbuf  which  I  now  know  is  not 
present  on  the  real  chip. 

1  originally  had  to  deade  whether  it  iwuld  be  better  to  build  a  model  which  interpreted  6800 
assembler  code  or  hexadecimal  op-codes.  I  dedded  that  the  memory  to  store  mnemomes  as  a  separate 
type  from  data  was  too  far  away  (lom  reality,  and  too  difficult  to  implement.  Therefore  I  opted  for  a  memory 
interface  which  just  used  8-bit  data.  However,  in  order  to  make  the  design  easier  to  program  and  to 
understand  I  dedded  that  instructions  should  be  stored  within  the  microprocessor  as  an  assembler  mnemonic 
plus  an  addressing  mode.  Thus  FN  MNEMONIC  and  FN  ADMODE  are  used  to  extract  this  infoimation 
when  the  incoming  data  word  is  an  instruction  (see  Appendix  A). 

Studymg  the  data  I  found  that  with  one  exception  (which  I  erroneously  took  to  be  a  printing  error), 
the  addressmg  mode  affected  the  number  of  cydes  required  to  perform  an  instruction  as  follows. 


Impl-id  +0 

Immediate  + 1 

Direct  +2 

RelativeJExtended  -r3 

Indexed  ->■  4 


1  deduced  that  the  miCTOprocessor  must  have  some  way  of  knowing  how  far  through  an  instruction 
It  has  proceeded  smee  all  instructions  take  between  2  and  12  timesteps.  I  therefore  created  tbe  model  with 
an  mtemal  counter  (imercount)  which  operates  as  follows 

If  Intercount  is  zero  then  the  incoming  byte  on  the  databus  is  treated  as  an  mstruciion,  and  the 
functions  ADMODE  and  MNEMONIC  are  used  to  change  tbe  instruction  byte  into  an  addressmg  mode 
and  a  mnemomc  From  these  the  function  HOWUDNG  calculates  bow  many  clock  cycles  the  mnemonic 
should  take,  plus  an  offset  for  the  addressmg  mode  Intercount  is  then  set  to  tbe  value  returned  from  FN 
HOWLONG  In  order  to  facilitate  future  logic  synthesis  1  have  avoided  the  use  of  negative  numbers  Thus 
FN  COMPARECOUNT  always  returns  a  positive  value  or  zero  if  the  second  mput  is  greater  than  or  equal 
to  the  first  FM  COMPARECOUNT  is  then  called  to  sec  bow  far  mto  the  addressmg  mode  cycle  the 
microprocessor  has  proceeded,  by  comparmg  mtercount  with  the  number  of  cycles  required  to  perform  tbe 
instruction  if  there  were  no  addressing  steps,  and  tbe  appropriate  addressmg  step  is  carried  out  If  tbe  value 
returned  from  FN  COMPARECOUNT  is  zero  then  the  comparison  is  repeated  with  the  inputs  reversed  so 
as  to  provide  a  result  wL<ch  might  be  positive  or  zero,  and  tbe  appropriate  instruction  step  carried  out 

In  order  to  test  the  microprocessor  it  is  necessary  to  connect  it  to  a  memory,  so  I  created  FN 
MAKERAM  and  FN  HARNESS  which  provide  tins  plus  a  reset  hnc 

The  first  instructions  to  be  unplemented  were  adda,  Idaa,  suba,  beq,  Jrop  and  staa  (see  Appendix 
C)  These  were  tested  by  means  of  two  test  programs,  TESTPROGl  and  TKTPROG2  (see  appendix  B) 
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Hit  Motorola  6800  Model:  Developmeot 

Having  got  the  memory  and  the  first  six  instructions  working  to  my  satisfaction  I  began  increasing 
the  instruction  set  After  some  time  it  became  apparent  that  the  length  of  the  main  program  loop  was  gettmg 
too  big  to  be  easily  understood,  and  furthermore,  was  beginning  to  get  unrealistic  with  16  bit  adders  creeping 
in  that  do  not  exist  in  the  real  6800  I  therefore  decided  to  change  the  way  in  which  arithmeUc  and  logical 
functions  were  being  implemented.  1  created  FN  ALU  (Arithmetic  and  Logical  Unit)  which  had  basic 
functions  defined.  These  were  FN  ADDBYTE,  FN  ORBYTE,  FN  NOTBYTE,  FN  ANDBYTE  and  FN 
SRB  YTE.  (ADDBYTE  performs  binary  add,  SRBYTE  binary  shift  right  with  wraparound,  ORBYTE  binary 
OR  etc.)  There  were  also  several  functions  for  such  things  as  truncatiog  9-bit  results  (FN  CHOPDATA)  and 
condition  codes  register  handling.  Later  I  added  a  axth  main  instruction,  FN  DAABYTE  which  performs 
a  dedmal  adjust  on  accumulator  a. 

In  order  to  implement  16-bit  operations  such  as  lux  (see  Appendbc  C)  I  found  it  necessary  to  pass 
infcrmation  as  to  vrfiich  part  of  an  instruction  was  to  be  executed  by  the  AL.U  I  achieved  this  without 
inaeasing  the  number  of  inputs  by  utilising  the  two  most  significant  bits  of  the  condition  codes  register, 
which  the  data  sheet  defines  as  both  being  true  at  all  times,  and  therefore  redundant 

The  text  was  tidied  by  using  functions  such  as  FN  BRANCH  to  wrap  up  functions  of  similar  type 
The  functions  which  take  up  a  lot  of  space  are  those  such  as  Jsr  and  swi  (see  Appendui  C)  which  lake  many 
timesteps  and  are  fairly  unique.  A  lot  of  expansion  to  FN  ALU  was  also  required 

Fmally  1  implemented  the  mtemipt  request,  non-maskable  mterrupt  and  halt  lines  into  the 
imcroprocessor  These  are  separate  level  aensitive  hnes  which  are  inverted,  i.e  a  logic  false  causes  an 
mterrupt  to  occur  or  the  rmcroprocessor  to  cease  all  operation  accordingly.  The  handhng  of  these  mterrupts 
is  virtually  identical  to  the  s*"l  utairuclion.  1  therefore  decided  that  by  far  the  easiest  way  to  implement  the 
interrupt  was  to  have  two  dummy  mnemomcs,  Irq  and  nmi. 

1  also  memory  mapped  three  mputs  into  the  computer  and  three  outputs  from  it  Locations  iStfilOO 
to  &f002  if  read  from  by  the  miaoprocessor  return  the  three  data  mputs  to  FN  HARNESS  Similarly 
locati  ms  &e000  to  &e002  if  written  to  change  the  output  of  FN  HARNESS  This  anangement  can  be 
thought  of  as  being  equivalent  to  a  set  of  three  mpul  registers  which  can  be  loaded  by  usmg  a  keypad  or 
other  means,  and  six  hexadecimal  output  digits. 

With  the  imCToprocessor  now  theoretically  fully  functional  I  wrote  an  imtialisalion  program  which 
clears  all  the  registers  to  defimte  values,  and  a  monitor  program  which  is  called  by  a  non_maskablc  mterrupt 
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The  Motorola  6800  Model:  Testiog 

The  development  of  the  model  was  a  repetitive  cycue  of  adding  more  instructions,  removing 
compilation  errors  and  then  testing  by  means  of  test  programs  (Appendix  B).  These  were  called  into  the 
simulator  as  ELLA  instruction  (*.eh)  files  which  initiahsed  the  ram  to  the  values  required  The  majority  of 
programs  perform  the  same  function:  they  calculate  the  first  ten  numbers  in  the  Fibonacci  series  which  are 
calculated  by  adding  the  previous  two  terms  in  the  series  to  get  the  current  one.  Assembler  mnemomcs  are 
provided  as  comments  in  the  programs  to  assist  the  reader. 

Due  to  the  large  number  of  instructions  (197  valid  op-codes,  2  other  mterrupt  functions,  a  reset 
function  and  a  halt  line),  it  was  not  possible  to  test  every  instruction  m  the  time  available,  ho  vever  I  believe 
that  the  instructions  contained  withm  the  test  prc^ams  represent  a  good  cross  section  The  complex 
instructions  such  as  jmp,  swi,  irq,  nml,  rti,  rts,  jsr  and  bsr  have  all  been  tested,  however  some  simple 
mathematical  functions  such  as  addb  arc  assumed  because  adda  works  and  addb  is  a  direct  copy  (see 
Apoendix  A) 
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'Hie  Motorola  6800  Model:  Conclusions 

My  model  of  a  Motorola  6800  miaoprocessor  fulfils  the  3  spedficatioo  requirements  set  out  above 
However  there  may  be  some  errors  in  the  condition  codes  register;  these  could  definitely  be  found  and  fixed 
with  some  more  testing  time. 

The  internal  architecture  is  quite  unlike  the  real  6800  The  Motorola  data  sheet^  became  available 
very  late  m  the  development  stage  when  1  was  implementing  interrupts.  a  few  days  work,  however,  I 
believe  that  the  program  could  be  modified  to  give  it  a  much  better  resemblance  to  the  6800  internally 

Given  the  same  project  again  I  would  implement  the  tinning  of  addressing  mode  operations 
differently,  and  would  try  and  mimic  the  two  phase  clock  required  by  the  6800  (my  current  model  has  only 
a  single  phase).  There  would  be  no  addrbuf  register  and  all  internal  registers  would  be  S-bits  wide  With  the 
use  of  the  Motorola  data  sheet  1  could  ensure  that  everv  register  contained  the  right  information  on  every 
cycle  (the  current  model  is  only  correct  at  the  end  of  each  instruction). 

The  development  of  my  model  was  largely  based  upon  a  very  limited  amount  of  information  Tbs 
lack  of  information  lead  to  a  number  of  differences  between  it  and  the  real  6800.  However  I  bebeve  that 
this  model  demonstrates  that  a  fully  functional  ELLA  description  can  be  obtained  with  limited  information 
and  minimal  difficulty  wbch,  when  viewed  from  outside  the  microprocessor/memory  system  behaves 
identically  to  the  real  thing 
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Appendix  A:  The  ELLA  Description 

The  ELLA  description  beiow  is  arranged  m  a  compilable  order  i  e  declare  before  use  Thus  the 
main  microprocessor  function  FN  UP6800  is  towards  the  end  of  the  listing 


#Variable  l^pe  Definitions# 

TYPE  data  =  NEW  dai'(16r<XI  Idrff), 
address  »  NEW  ad/(16rOOOO.,16rBff), 
result  ■=  NEW  re/(16t000..16rlfi), 
bitint  =  NEW  bl'(0  1), 
flag  =  NEW(hll), 
count  =  NEW  co/(0..12)i 

addrmode  NEW  (immed  i  direct  I  index  [extnd  I  implied  I  relative), 
halfbyte  =  NEW  hb/{i6r0  16rf), 
mnemonic  =  NEW 

(adca !  adda  I  anda  I  bita  { cira  |  cmpa  I  coma  I  deca  I  eora  I  mca  |  oraa !  psha ;  pshb  \  pulb  |  pula !  rola 
I  rora  I  asla !  asra !  Isra  I  nega !  Idaa  I  suba  I  staa !  sbca  I  tsta  I  cpx  { dex  { des  1  inx  |  ms  I  idx  |  Ids  | 
stx  1  sis  I  txs  1  tsx  [  bra  I  bcc  1  bcs  1  beq  1  bge  1  bgt  1  bhi  1  ble  1  bis  I  bit  1  bnu  1  bne  1  bvc  1  bvs  1  bp!  1  bsr  1 
jmp !  jsr  I  nop  1  addb  1  adcb  1  andb ;  bitb  1  clrb  I  cmpb  1  comb  |  decb  |  eorb  1  Idabl  mcb  1  negb ;  orab  1 
rolb  1  rorb  1  aslb  1  asrb  1  Isrb  1  sbcb ;  subb !  tsib  1  slab  1  tba  I  lab  I  aba !  cba  1  daa  |  sba  1  cir  1  dec  1  me 
1  com  1  neg  1  rol  1  ror  1  as! ;  asr ;  Isr  i  Isl  1  rli ;  rts  1  s\m  ;  wai  I  cic  |  ch  I  civ  |  sec 
!  sei  1  sev  1  tap  1  tpa  1  irq ;  nim) 


#Blt  Tester# 

FN  TRUEBIT  =  (data  mpm  control)  •>  flag 
ARITH  IF  (mpul  IAND  control)  =  control 
THEN  1  #h# 

ELSE  ;  #1# 

n 
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#ArittuiieUc  and  Logical  Unit# 

FN  ALU  •  (mnemonic:  inst,  data:  mputl  input2  ccreg)  ->  |2Jdaia: 


BEGIN  SEQ 


FN 

FN 

FN 

FN 

FN 


ADDBYTE  =  (data  ipl  ip2,  bitint.ipS)  -  >  result-  ARITH  (ipl  +  ip2 + ip3), 
ANDBYTE  =  (data-ipl  ip2)  ->  result-  ARITH  ipl  lAND  ip2, 

-  >  result  ARITH  ipl  lOR  ip2, 


ORBYTE  “  (data  ipl  ip2) 
NOTBYTE  =  (data.tpl) 


->  result  ARITH  (INOT  ipl)  iAND 
15rlff; 


CHOPDATA  -  (result  ipl) 


->  data  -  ARITH  ipl  lAND  16rff; 


FN  SRBYTE  -  (result  ipl)  ->  result  ARITH  (ipl  SR  1) 

+  256*(ipl  lAND  1); 

FN  DAABYTE  «  (data  ipl  ccreg)  -  >  result. 

ARITH  ipl  +  IF  ((ipl  lAND  16rf)>9) 

OR  ((ccreg  IAND  16r20)  »  16r20) 

THEN  IF  (ipl  IAND  16rf0)  -  16r90  THEN  16r66  ELSE  6  FI 
ELSE  IF  (ipl  IAND  IdrlD)  >  16r90  THEN  16r60  ELSE  0  H 
FI, 


FN  HALFCARRY  =  (data  ipl  ip2  ccreg,  bilint  ip3)  ->  data 
ARITH  (ccreg  lANT)  16rd0  + 

IF  ((ipl  LAND  l(irOn-(ip:  IAND  16r0f) -np3)  >  IbrOf  THEN  16r20  ELSE  0  FI, 

FN  ACARRY  »  (result  ipl,  data  cireg)  •>  data 

ARITH  (tcreg  lAND  16rfc)»lF  ipl  >25*:  THEN  1  ELSE  0  FI, 

FN  SCARRY  =  (result  ipl,  data  ccreg)  •>  data 

ARITH  (ccreg  lAN'D  Itirfe)  t  IF  ipl  >  255  THEN  U  ELSE  1  FI, 


FN  DCARRY  =  (result  ipl,  data  ccrtg)  >  data 

ARITH  ccreg  lOR  IF  ipl  >255  THEN  IbtOl  ELSE  0  FI, 

FN  OVERFLOWl  -(data  ipl  ip2  output  ccreg)  ->  data 

ARITH  (ccreg  LAND  Idrfd)  t  IF  ((ipl  LAN'D  16r80)  -  (ip2  LAND  16r80)) 
AND  ((ipl  LAND  16t8C)  /=  (output  LAND  16r80)) 
THEN  16r02 
ELSEO 
H, 
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FN  OVERFLOW?  =  (data;  ipl  ip2  output  ccreg)  -  >  data' 

ARITH  (ccreg  lAND  16rfd)  +  IF  ((ipl  lAND  16r80)  =  (((INOT  ip2)  +  l)  lAND  16r80)) 
AND  ((ipl  lAOT  16r80)  /=  (output  lAND  16r80)) 

THEN  16r02 
ELSEO 
FI, 


FN  OVERFLOW'S  “  (data  ccreg)  -  >  data:  ARITH  (ccreg  lAND  16rfd), 


FN  OVERFLOW'4  ■=  (result:ipl,data  ccreg)  -  >  data' 

ARITH  (caeg  lAFJD  16rfd)  + 

IF  (((ipl  lAND  16rl00)  SR  1)  lAND  (ipl  lAND  16r80))  - 
(((ipl  lAND  16rl00)  SR  1)  lOR  (ipl  lAND  16r80))  THEN  0  ELSE  2  FI; 


FN  OVERFLOW'S  =  (data  ipl  ccreg)  -  >  data 

ARITH  (ccreg  lAND  16rfd)  +  IF  ipl  =  16r80  THEN  2  ELSE  0  R, 


FN  ZERO  =  (data-  ipl  ccreg)  ■  >  data 

ARITH  (ccreg  lAND  16rfb)  +  IF  ipl  =  0  THEN  4  ELSE  0  FI, 


FN  NEC  =  (data  ipl  ccreg)  •  >  data 

ARITH  (ccreg  lAF’D  IdrH)  +  IF  ipl  >  127  THEN  8  ELSE  0  FI; 

FN  CCCOUNT  •=  (data  caeg)  ■>  data 
ARITH  (ccreg  +  16r40)  L^ND  15rff, 

FN  CCRESET  »  (data  ccreg)  •  >  data 
ARITH  ccreg  lOR  lOrcO, 

VAR  answer  =  re'O, 
output  ~  da'O, 
newcc  “  ccreg, 
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CASE  inst 

OF  adda  1  addb  i  aba  (aBSwer- = ADDBYTE(inpull,input2,  bi/0); 

output: =CHOPDATA  answer), 

adcaladcb  (answer  =  ADDBYTE(uiputl,  input2,  CASE  TRUEBn'(ccreg,da/l) 

OF  h  bi/1 
ELSEbi/0 

ESAC), output  =  CHOPDATA  answer), 

andalandb;  (answer ANDBYTE  (mputl,  mput2);ontpat; «  CHOPDATA  answer), 
bitalbitb:  (answer  .=  ANDBYTE  (mputl,  input2);output:  =  inpull), 
cira !  ebb  1  clr'  (answer :  =  re/0;output .  =  da/0), 

cmpalcmpbicpxlcba  (  wer  ■=  ADDBYTE  (mputl,  CHOPDATA  NOTBYTE  mput2,  bi/1); 
output:  “CHOPDATA  answer), 

coma  I  comb  I  com:  (answer  :=  NOTBYTE  mputl,  output.  “  CHOPDATA  answer), 
daa:  (answer :  =  DAABYTE  (inputl,caeg),  output :  •=  CHOPDATA  answer), 
negalnegblneg-  (answer  ■“  AJ3DBYTE  (CHOPDATA  NOTBYTE  inputl,(WO,bi/l); 

output:  -  CHOPDATA  answer), 

decaldecbldec:  (answer  •»  ADDBYTE  (inputl,  da/255,  bi/0);outpQt.  -  CHOPDATA  answer), 
eoraleorb  (answer :«  ANDBYTE  (CHOPDATA  ORBYTE  (inputl, input2), 

CHOPDATA  NOTBYTE  CHOPDATA  ANDBYTE  (inputl,ijput2)), 
output'  =  CHOPDATA  answer), 

inca'iincblmc  (answ-r  =  ADDBYTE  (inputl,  da/1,  bi/0);output :  “  CHOPDATA  answer), 
Idaa  1  staa  1  Idab  I  stab !  Idx  I  stx ;  Ids  I  sts  I  lab  i  tba. 

(answer  =  ADDB  YTE(da/0,input2,bi/0);outpul'  =  input2), 
oraalorab  (answer  =  ORBYTE  (inputl,  mput2),oulput  *  CHOPDATA  answer), 
rola  1  rolb  1  rol  (answer  =  ADDBYTE  (mputl,  mputl,CASE  TRUEBIT(ccrcg,da/l) 

OF  h.bi/1 
ELSE  biA) 

ESAC),oulput  «  CHOPDATA  answer), 

forairorblror  (answer  <=  SRBYTE  ADDBYTE  (mputl,  CASE  TRUEBIT(ccreg,da/l) 

OFh  da/255 
ELSE  da/0 

ESAC, 

CASE  TRLIEBlT(ccreg,da/l), 

OFh  biT 
ELSE  bi/0 

ESAC),output  =  CHOPDATA  answer), 

asla  1  asib  1  asl  (answer  =  ADDBYTE  (mpulLuiputl,  bt/0),output  =  CHOPDATA  answer), 
asra i asrb  1  asr  (answer  =  SRBYTE  ADDBYTE  (mputl,  CASE  TRUEBIT(ccreg,da'l) 

OF  h  da/255 
ELSE  dar'O 

ESAC, 

CASE  TRUEBIT(ccreg,da/l); 

OFh  biT 
ELSE  bi/0 

ESAC),output  =  CHOPDATA  answer), 

Israllsrbllsr  (answer  =  SRBYTE  ADDBYTE  (mputl,  da/0,  bi/0), 
output  =  CHOPDATA  answer), 

subalsubblsba  (answer  “ADDBYTE  (mputl, CHOPDATA  NOTBYTE  mpul2,  bt  lj, 
output  =  CHOPDATA  answer). 
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sbcalsbcb.  (answer  ADDBYTE  (inputl,  CHOPDATA  NOTBYTE  mput2, 
CASE  TRUEBIT(cCTeg,da/l) 

OFh:bi/0 
ELSE  bi/1 

ESAC);oupuI:  =  CHOPDATA  answer), 
tsta  I  tstb  1  tst-  (answer ;  “  ADDBYTE  (inputL  da/0,  bi/0), 

output- ■=  CHOPDATA  answer), 
dexides  (answer  ;'=CASE  TRUEBIT  (ccreg,da/16r40) 

OF  h:  ADDBYTE  (inputl,  da/255,  bi/0), 

I:  CASE  input2 

OF  da/16rff  ADDBYTE(inputl,da/255,bi/0) 

ELSE  ADDBYTE  (inputl,  da/0,  bi/0) 

ESAC 

ESAC;  output  •  =  CHOPDATA  answer), 
inxims  (answer  -  “CASE  TRUEBIT  (ccreg,da/16rc0) 

OF  h.  ADDBYTE  (inputl,  da/1,  bi/0), 

1  CASE  input2 

OF  da/16r00  ADDBYTE(inputl,da/l,bi/0) 

ELSE  ADDBYTE(inputl,da/0,bi/0) 

ESAC 

ESAC,  output  -  CHOPDATA  answer) 

ESAC, 


newee  •  =  CASE  mst 

OF  adda  1  addb  1  aba  HALFCARRY  (toputl,uiput2,  newee,  bi/0), 
adca'adeb.  HALFCARRY  (mputl,uiput2,  newee,  CASE  TRUEBIT(ecreg,da'l) 
OF  h  bt'l 
ELSE  bi/0 
ESAC) 


ELSE  newee 
ESAC, 


newee  =  CASE  uist 

OF  adda ;  addb  I  aba '  adea !  adeb !  cira '  cirb :  coma ;  comb !  nega ! 
negb ;  rola  I  ro’b :  roi  a :  rorb  I  asla  I  aslb :  asra ;  asrb  I  Isra ;  Isrb 
!  ts'  a ;  tstb  I  clr ;  com  I  neg :  rol  I  ror !  asl  [  asr ;  Isr ;  tst 
ACARRY  (answer,newcc), 
daa  DCARRY  (answer, newee), 

empa ;  empb  1  eba  i  subb ;  sbea  I  sbeb  i  suba  I  sba  SCARRY  (answer,ncwcc) 
ELSE  newee 
ESAC,. 
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OF  adda  1  adca  1  adcb !  addb  1  aba  I  daa-OVERFLOWl  Cmputl,mpul2,output,newcc), 
incalmcblmc  OVERFLOWl  (mpua,da/i,output,newcc). 
suba  1  subb  I  sbca !  sbcb !  cmpa  1  cmpb  1  cba  1  sba-OVERFLOW2  (mputl,mput2, 
CHOPDATA  answer, newcc), 

deca  I  decb  1  dec  OVERFLOW2  (inpua,da/l.output, newcc), 

anda  1  andb  I  bita  1  bitb  |  clra  1  clrb  I  coma !  comb  1  eora  1  eorb  1  Idaa  1  Idab  I  tab 

I  tba  1  oraa  I  orab !  staa  1  stab  I  tsta  1  tstb ;  dr  1  com  |  tst 

0\'ERFLOW3(newcc), 

rola  1  rolb  I  rora  I  rorb  i  asla  |  aslb  1  asra|  asrb  I  Isra  1  lsrb.OVERFLOW4  (answer, newcc), 
negainegblrollrorlasllasrllsrineg;  OVERFLOWS  (output,newcc), 
cpK  CASE  TRUEBIT(ccreg,da/16r40) 

OF  1  OVERFLOW2  (inputl,mput2,CHOPDATA  answer,newcc) 

ELSE  newcc 
ESAC 

ELSE  newcc 
ESAC; 


newcc  :  =  CASE  inst 

OF  cpsldexlmxlldxlldslstxlsts 

CASE  TRUEBIT  (ccreg,da/16rt0) 

OF  h.  ZERO  (output,  newcc), 

!•  CASE  TRUEBIT  (ccreg,dayi6r04) 
OF  h.  2tERO  (output,newcc) 
ELSE  newcc 
ESAC 

ESAC, 

des'ms  newcc 

ELSE  ZERO  (output, newcc) 

ESAC, 


newcc  .  =  CASE  inst 

OF  dex  1  des !  ms  1  mx  newcc,. 
cpx  1  Idx ;  Ids  1  SB!  I  sts  CASE  TRUEBIT  (ccreg,da/lor40) 
OF  h  NEC  (output,newcc) 
ELSE  newcc 

ESAC 

ELSE  NEC  (oulput,newcc) 

ESAC, 

newcc  =*  CASE  inst 

OF  clc  CHOPDATA  ANDBYTE  (ccreg,  dd/16rfe), 
cb  CHOPDATA  ANDBYTE  (ccreg,  da'lbreO, 
civ  CHOPDATA  ANDBYTE  (ccreg,  dayi6rfd), 
sec  CHOPDATA  ORBYTE  (ccreg,  da/16r01), 
sei  CHOPDATA  ORB^"^E  (ccreg,  da/16rl0), 
sev.  CHOPDATA  ORB  r  .'E  (ccreg,  da/16r02), 
tap  CHOPDATA  ORBYTE  (inputl,  da'lbrcO) 

ELSE  newcc 
ESAC,, 
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newcc  =  CASE  mst 

OF  q}xldex|deslmx|mslldxllds!slx|sts 
CASE  TRUEBIT  (ccreg,da/16rc0) 
OF  h.  CCCOUNT(newcc), 

1;  CCRESET(newcc) 

ESAC 

ELSE  ncwcc 
ESAC; 


OUTPUT  (CASE  inst 

OF  cmpajcmpblcpx:  inputl, 
tpa  newcc 

ELSE  output 

ESAC,  ncwcc) 

END 
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#Ditcision  Logic# 


FN  BRANCH  =  (mnemomc  inst,address.addrbuf  pc,data-cc)  -  >  address: 

CASE  inst 

OF  bra’  addrbuf, 

bcc  CASE  TRUEBlT(cc,da/16r01) 

OF  1’  addrbuf 
ELSE  pc 
ESAC, 

bcs;  CASE  TRUEBIT(cc,da/16r01) 

OF  h  addrbuf 
ELSE  pc 
ESAC. 

beq  CASE  TRUEBIT(cc,da/16r04) 

OF  h  addrbuf 
ELSE  pc 
ESAC, 

bge  CASE  (TRUEBn'(cc,da/16i08),TRUEBIT(cc,da/16r02)) 

OF  (h,h)l(l,l).  addrbuf 
ELSE  pc 
ESAC, 

bgt  CASE  (TRUEBIT(cc,day:6r04),TRUEBIT(cc,da'16i08),TRUEBIT(cc,da/16r02)) 

OF  {l,h,h)  1  (1,1,1)  addrbuf 
ELSE  pc 
ESAC, 

bhi  CASE  (TRUEBIT(cc,da/16r04).TRUEBIT(cc,da/16r01)) 

OF  (1,1)  addrbuf 
ELSE  pc 
ESAC, 

ble  CASE  (TRUEBlT(cc,da,'16r04),TRUEBlT(ct.da’16r08),TRUEBlT(cc,da'16r02)) 
OF  (l,h,h);  (1,1,1)  pc 
ELSE  addrbuf 
ESAC, 

bU  CASE  (TRUEBIT(cc,da/'16r04),TRUEBITiic,da'16r01)) 

OF  (1,1)  pc 
ELSE  addrbuf 
ESAC, 

bll  CASE  {TRUEBlT(cc,di'16r<)8),TRUEBIT(cc,da'16r02)), 

OF  (h,I);(l,h)  addrbuf 
ELSE  pc 
ESAC, 

bnu  CASE  TRUEBlT(tc,da'16r<)8) 

OF  b  addrbuf 
ELSE  p: 

ESAC, 

bne  CASE  TRUEBn'(cc,da'16r04) 

OF  1  addrbuf 
ELSE  pc 
ESAC, 
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#Uistructios  Decoder# 

FN  ADMODE  =  (halfbyte  input)  ->  addrmode 
CASE  input 

OF  hb/16ri)  1  hb/16rl  |  hb/16r3 1  hb/16r4 1  hb/16r5  implied, 
hb/16r2'  relative, 
hb/16r6|hb/16ralhb/16re  mdeit, 
hb/16r71hb/16rblhb/16rf.  extnd, 
hb/16r81hb/16rc;  immed, 
hb/16i91bb/16rd  direct 
ESAC 

FN  MNEMONIC  -  (halfbyte:  input,  halfbyte-  mode)  •>  (mnemonic) 
CASE  input 

OF  hb/16r0;  CASE  mode 

OF  hb/16rl  sba, 
hb/16r2.  bra, 

hb/lSrS  isx, 

hb/16r4  nega. 

hb/16r5  negb, 

hb/(16r6  16r7)  ncg, 
hb/(16r8. 16rb)  suba, 
hb/(16rc  16r0  subb 
ESAC, 

hb/16rl'  CASE  mode 

OF  hb/16rl  cba, 

hb/16r3:  ms, 

hb/(16r8  16rb).  cmpa, 
hb/(16rc  16r0  cmpb 
ESAC, 

hb/16r2  CASE  mode 

OF  hb/16r0  nop, 

hb/16r2  bhi, 

hb/16r3  puU. 

hb/(16r8  16rb)  sbtd, 
hb/(16rc  16rf)  sbcb 
ESAC, 

hb/16r3  CASE  mode 

OF  hb/16r2  bis, 

hb/16r3  pulb, 

hb/16r4  coma, 

hb/16r5  comb, 

hb/(16r6  16r7)  com 
ESAC, 
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hb/16r4.  CASE  mode 

OF  hb/16r2 

bcc, 

hb/16r3 

des, 

hb/16r4 

Isra, 

hb/16r5 

Isrb, 

hb/(16r6..16r7)  Isr, 

hb/{16r8..16rb)  anda, 

hb/(16rc..l6rf)  atdb 

ESAC, 

hb/16r5  CASE  mode 

OF  hb/16r2' 

bcs, 

hb/16r3; 

txs, 

hb/(16r8..16rb).  bita, 

hb/(16rc..l6r0  bitb 

ESAC, 

hb/16r6  CASE  mode 

OF  hb/16r0 

lap, 

hb/16rl 

tab, 

hb'16r2' 

bne, 

hb/16r3 

psba, 

hb/16r4 

rora. 

hb'16r5 

rorb. 

hb/(16r6  I6r7)  ror. 

hb''(16r8  16rb; 

\  Idaa. 

hb/(16rc  16r0  Idab 

ESAC, 

hb/16r7  CASE  mode 

OF  hb'ldrO 

Ipa. 

hb.'ldrl 

Iba. 

bb/16r2 

beq, 

hb'16r3 

pshb, 

hb/16r4 

aara, 

hb/16r5 

asrb. 

hb/(16r6  16r7)  asr, 
hb/(16r9  16rb)  staa, 
hb'(lbrd  16rf)  sub 


ESAC, 

bb/16r8  CASE  mode 

OF  hb/16r0 

mx, 

hb/l6r2 

bvc, 

hb/16r4 

asla, 

hb/16r5 

aslb, 

hb/(16r6  16r7)  as!. 
hb/(16r8  16rb)  eora, 
hb/(16rc  16rf)  eorb 
ESAC. 
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hb/16r9.  CASE  mode 

OF  hb/16rf): 

dex, 

hb/16rl 

daa, 

hb/16r2; 

bvs, 

hb/16r3; 

rts, 

hb/16r4. 

rola, 

hb/16r5: 

rolb, 

hb/(16r6 .16r7):  rol, 

hb/(16r8 .16rb);  adca, 

hb/(16rc,.16r0'  adcb 

ESAC, 

hb/16ra  CASE  mode 

OF  hb/16r0 

dv, 

hb/16r2: 

bpl, 

hb/16r4: 

deca, 

hb/16r5- 

deeb, 

bb/(16r6. 16r7)  dec, 

hb/(16r8  .16rb)  oraa, 

hb/(16rc  16rf)  orab 

ESAC, 

hb/16rb  CASE  mode 

OF  hb/l(iiO 

sev, 

hb/16rl 

aba, 

hb/16r2 

bmi. 

hb/16r3' 

fii, 

hb/(16r8..16rb)  adda. 

hb/(16rc  16rn  addb 

ESAC, 

hb/l6rc  CASE  mode 

OF  bb'lbrt) 

cl', 

hbl6r2 

br,c, 

hb,'l6r4 

mca, 

hb/16r5 

meb, 

hb/(16r0  16r7] 

'  me. 

hb/(16r8  Ibrb; 

i  cp\ 

ESAC, 

hb/16rd  CASE  mode 

OF  hb/16r<) 

sec, 

hb/16r2 

bit, 

hb/16r4 

(sta, 

hb/16r5 

ts(b, 

hb/(16rt  16r7)  tst, 

hb/16r8 

bsr, 

hb/(16ra  .16rb) 

jsr 

ESAC, 
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hb/16rc  CASE  mode 

OF  bb/16r0-  cU, 
hb/16r2*  bgt, 
hb/16r3:  wai, 

hb/(16r6..16r7).  jmp, 
hb/(16r8..16rb).  Ids, 
hb/(16rc.  16rf)  Idx 
ESAC, 

hb/16rf.  CASE  mode 

OF  hb/16rO.  sei» 
hb/16r2-  ble, 
hb/16r3  swi, 
hb/16r4.  clra, 
hb/16r5  clrb, 
hb/(16r6..16r7)-  dr. 
hb/(16r9  .16rb)'  sts, 
hb/(16rd  16rf)  stx 
ESAC 

ESAC 
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#CoanUag  and  Type-Swapping  FancUons# 

FK  COUNTSET  =  (count:  a  b)  ->  count: ARTTH  a+b 

FN  HOWLONG  =  (mnemomc  function,  addnnode  mode)  ->  count. 

COUNTSET  (CASE  function 
OFjmp  co/0, 

staa  I  stab !  cira '  clrb  1  coma  [  comb  1  nega  1  ncgb  1  dcca  1  dccb  \  inca  i  incb  i  rola ,  roio , 

rora  1  rorb  |  asla !  aslb  1  asra  1  asrb  1  Ura  1  Urb  1  tsta  I  tstb  I  cpx  1  Idx  I  Ids  1  tba  1  tab 
|abaicba!daa|nop!clcicUlclvlseclseilsev!tapltpa  co/2, 

clr  1  com  I  ncg !  dec  1  inc !  ro!  1  ror  |  asl  [  asr !  Isr  j  tst  co/3, 

pshalpshblpulalpulbldexldeslmxlmsitxsllalstx  co/4, 

bsrirls  co/5, 

jsr:  CASE  mode  OF  extnd  co/6  ELSE  co/4  ESAC, 
wai  co/9, 
tti'  co/10, 
iwiinmiluq.  co/12 
ELSE  co/1 
ESAC, 

CASE  mode 
OF  immed  co/1, 
duect  co/2, 
index  co/4, 
extnd  1  relative  co/3 
ELSE  co/0 
ESAC) 


FN  COUNTDOWN  =  (coum  mpul)  -  >  count  ARITH  mpul-1 


FN  COMPARECOUNT  =  (count  inpull  input!)  ->  count 

ARITH  IF  (mputl-inpul2j  >0  THEN  mputl  -  uiput2  ELSE  0  FI 


FN  INCADDR  =  (addres'.  u;,iut)  ->  address  ARITH  IF  mput  =  65535  THEN  0  ELSE  input -rl  FI 


FN  HINYBBLE  =  (data  input)  ■>  halfbyte  ARITH  (mput  LAND  16rlU)  SR  4 


FN  LONWEBLE  =  (data  mput)  ->  halfbyte  .ARITH  (mput  LAND  IbrOf) 

FN  MAKEAODRESS  “  (data  mputl  mput!)-?  address  ARITH  256*mputl-rmput2 
FN  MAKEDATA  »  (halfbyte  mputl  mpul2)  -  >  data  ARITH  16*mputl  +  mput2 


FN  HIBYTE  =  (address,  mput)  ■  >  data  ARITH  (mput  LAND  16rffD0)  SR  8 
FN  LOBYTE  =  (address  mput)  ->  data  ARITH  (mput  IANT)  lOrOOff) 
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#Main  Microprocessor  Control  Logic# 

FN  UP6800  =  (data  input, flag  reset  birq  bnmi  halt)  ->  {data,ad(iress  flaal 
BEGIN  SEQ 
PVAR  a  =  7data, 
b :;  =  ?data, 

X ;;  =  ?address, 
sp ;  =  ’address, 
pc ;;  =  ?address, 
cc .  =  ?data, 
writeenable.;  =  ’flag, 
addrbus =  ?address, 
addrbuf ::  ?address, 
databus  ••  =  ?data, 
intercount ;;  ”  ?count, 
admode  •  »  ?addrniode, 

Inst “  ?nmemonic; 


CASE  halt 
OFh 


#■ 


reset  circujl' 


(  Case  reset 

OF  1  (pc,adniode,inst,irtercount,cc) 

■  ■=  (adyi6rfffe.extndjmp,co'4,da/16rd0) 
ESAC, 


# 


. housekeeping . # 

databus  =  mput, 
writeenable  =  1, 

intercount .  =  COUNTDOWN  mtcrcount, 


. hardware  interrupt . # 

CASE  intercount 

OF  co/0  (CASE  bnmi 

OF  1  (inst  =  nnu,  intercount  =  co/12) 

ESAC, 

CASE  (birq.TRUEBlT  (cc.da,T5)) 

OF  (U)  (inst  =irq,  intercount  =  co/12) 

ESAC), 

co/1'  CASE  inst 

OF  *ai  (CASE  bnmi 

OF  1.  (inst  -  nnu;  intercount  =  co/4) 

ESAC, 

CASE  (birq,TRUEBIT  (cc,da/16)) 

OF  0,1)  (inst  >=irq;  mtercount  =co/4) 

ESAC) 

ESAC 

ESAC, 
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* . ifeat  databus  as  next  instruction _ # 

(tnst,adaiode) ;  s=  CASE  interconnt 

OF  co/0  {MNEMON]C  (LONYBBLE  databus  .HINYBBLE 
input)ADMODE  HINYBBLE  databus) 

ELSE  (mst,admodc) 

ESAC; 

(mtercount,pc) CASE  intercount 

OF  co/0:  (HO\VLONG(mst,admode),INCADDR  addrbus) 
ELSE  (mtercount,pc) 

ESAC; 


“MAIN  PROCEDURE _ 


COMPARECOUNT  (mtercount,  HOWLONG  (inst,  implied)) 

Or  co/4  ’ 

CASE  admode 

OF  indcjcCaddrbus  =  pc;pc  =  INCADDR  addrbus) 

ESAC,  ’■ 

CO/3 

CASE  admode 

OF  extnd  (addrbus  =  pc.  pc.  =  INCADDR  INCADDR  addibus) 
index  addrbuf  =  x, 

ESaC^'"*'"^'  (“'i'l'bus  =  pt,  pc  =  INCADDR  addrbus) 
co/2 

CASE  admode 

OF  direct  (addrbus  »  pc,  pc  -  INCADDR  addrbus), 
tfldex  addrbuf  « 

MAK^DRESSIHIBYTE  x.(ALU(addd,LOBYrE  x,databus.  di'0))|l|), 
extad  (addrbuf, addrbus)  « 

(MAKEADDRESS  (databus, d4/0),INCADDR  addrbus) 
relative  addrbuf  » 

MAKEADDRESS(da'0,(ALU(adda,databus,LOBYrE  pc,  da/0))(ll) 

CO/1 

CASE  admode 

OF  unmed  (addrbus  =  pc,  pc  -  INCADDR  addibus) 
direct  addrbus  =  MAKEADDRESS  (davl6rt),daiabus) 
index  (addrbuf  = 

MAKEADDRESS  ((ALU  (adca,  HIBYTE  x, 

CASE  TRUEBIT  (daiabus,da'16r80) 

OF  b  da/16rff 
ELSE  da'lbiOO 
ESAC, 

(ALU  (adda,daiabus,LOBYTE  X.  da/0))(2J))Jlj, 

LOBYTE  addrbuf),addrbus  =  addrbuf) 
extnd  addrbus  =  MAKE.ADDRESS  (HIBYTE  addrbuf,  databus). 
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relative'  addrbuf  ■  = 

MAKEADDRESS  ((ALU  (adca,  HffiYTE  pc, 

CASE  TRUEBIT  (databus,da/16r80) 

OF  h.  da/16rff 
ELSE  da;i6r00 
ESAC, 

(ALU  (adda,databus,LOByTE  pc,da/0))[2]))[l], 
LOBYTE  addrbuf) 

ESAr 

co/0  CASE  COMPARECOUNT  (HOWLONG  (inst,  implied), inlercount) 
OF  co/0 
CASE 
inst 

OF  adda  I  adca  I  aoda  I  bita  I  clra !  cmpa !  coma  I  deca  I  eora  |  Idaa  |  tpa 
inca  I  nega !  oraa  I  rola  { rora  |  asla  I  asra  I  Isra  I  sbca  j  daa  I  suba  1  tsta: 

(a,  cc,  addrb'ts)  ■= 

BEGIN 

LET  accl  ALU(msl,  a,  databus,  cc) 

OUTPUT  (acclll],accl|2],pc) 

END, 

staa  (databus,  cc  ,wntcenablc)  = 

BEGIN 

LET  acc2  -  ALU(insl,  dalabas,  a,  cc) 

OUTPUT  (acc2|l],acc212|,h) 

END, 

addb ;  adcb  I  andb  I  bitb  I  clrb !  cmpb ;  comb ;  decb !  eorb  I  Idab  I 
mcb  1  negb ;  orab  1  rolb  1  rorb  1  asib  I  asrb  1  Isrb  I  sbcb  1  subb  1  tstb 
(b,  cc,  addrbus)  »■ 

BEGIN 

LET  bed  °  ALU (inst,  b,  databus,  cc) 

OUTPUT  {bcclll),bccll21,pc) 

END, 

Slab  (dalabus,  cc  .wueenabic)  =■ 

BEGIN 

LET  bcc"  ■=  ALUfmsi,  daubus,  b,  cc) 

OUTPUT  (bcc211),bcc2|2|,h) 

END, 

aba;cba;tba  (a,cc)  = 

BEGIN 

LET  acc3  ■=  ALU  (msl,  a,  b,  cc) 

OUTPUT  (acc311),acc3|2)) 

END, 

tab,  (b,cc)  = 

BEGIN 

LET  acc4  »  ALU  (inst,  b,  a,  cc) 

OUTPUT  (<.cc411J,acc4|2J) 

END, 
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tst  I  cli  I  com  I  neg !  dec  1  inc  I  rol  1  ror !  asl  1  asr  1  Isr: 
fjatabus,  cc,  wnteenable) ;  = 

BEGIN 

LET  dbccl  =  ALU(mst,  a,  databus,  cc). 

OUTPUT  (dbcclll],dbccll2],h) 

END, 

clc  I  cli !  civ  I  sec  \  sei  |  sev  I  tap. 

cc:=  (ALU(inst,a,databas,cc))[2], 
bra  1  bcc  1  bcs  1  beq  1  bge  I  bgt  I  bhi  1  ble  1  bis !  bit  1  bmi  1  bne  1  bvc  I  bvs  1 
bpl.  addrbus  ;=  BRANCH  (inst,addrbuf,pc,cc), 
cpx. 

(addrbus  *  INCADDR  addrbus, 
pc  ;=  INCADDR  pc; 

cc  ■ »  (ALU  (cpx,  HIBYTE  x,  databus,  cc))[2]), 

Idx- 

(addrbus  ;  =  INCADDR  addrbus, 
pc  =  CASE  admode 

OF  immed'  INCADDR  pc 
ELSE  pc 
ESAC, 

(x,cc)  = 

BEGIN 

LET  xcc  =  ALU(mst,da/0,daiabus,cc)' 

OUTPUT  (MAKEADDRESS(xcc|ll,  dfi'0)ACc[2]) 

END), 
uix;dex 
(x,cc)  = 

BEGIN 

LET  xccl  =  ALU(uisi,LOBYTE  x,dalabus,cc)' 

OUTPUT  (MAKEADDRESS(HIBVrE  x,  xccllll).xccl|21) 
END, 
ms  I  des: 

(sp,cc)  ,  = 

BEGIN 

LET  spccl  -  ALU(msi,LOBYTE  sp,databus,cc) 
0UTPUT)MAKEADDRESS(HIBYTE  sp,  spccl(ll),spccll2]) 
END, 

Ids 

(addrbus  *=  INCADDR  addrbus, 
pc  '  “  INCADDR  pc, 

(sp.cc)  = 

BEGIN 

LET  spcc2  =  ALU(msi,da/0,databus,cc) 

OUTPUT  (MAKEADDRESS(spcc2il|,da,'0),spcc2121) 

END), 

stx((databus,  cc)  - 
BEGIN 

LET  xcc4  =  ALU(stx,  databus,HlBYTE  x  ,cc) 

OUTPUT  (xcc4111picc4[2|) 

END,  wnteenable  .  =  h). 
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1 


sts:((databus,  cc)  •  = 

BEGIN 

LET  spcc3  =  ALU(sts,  databus, MBYTE  sp  ,cc) 

OUTPUT  (spcc3(l),spcc3(2]) 

END,  writeenable  .  =  h), 
tsx 

(x,cc)  :■= 

BEGIN 

LET  xcc6  “  ALU(ms,  LOBYTE  sp, databus, cc). 
OUTPUT(MAKEADDRESS(fflBYTE  sp,  xcc6Il]),5(cc6[2]) 
END, 
txs 

(sp,cc)  •  = 

BEGIN 

LET  xcc7  «  ALU(des,  LOBYTE  x,databus,cc). 
OUTPUT(MAKEADDRESS(HIBYTE  x,  xcc7[l])ptcc7[2]) 
END, 

psha  (databus, addrbus, writeenable) .  =  (a,sp,h), 
pshb:  (databus, addibus,writeenable)  •  =  (b,sp,h), 
pula  1  pulb'  (sp,cc) :  - 
BEGIN 

LET  spcc4  =  ALU(ms, LOBYTE  sp, databus, cc) 
OUTPUT(MAKEADDRESS(HIBYTE  sp,  spcc4[l]),spcc4|2)) 
END, 

jsr ;  bsr'(addrbuf  “pc; 

pc  -  addrbus,  addrbus  -sp,  databus  - 
LOBYTE  (addrbuQ,  writeenable  =S, 

(sp,cc)  = 

BEGIN 

LET  spcc5  -  ALU(des, LOBYTE  sp, databus, cc) 
OUTPUT(MAKEADDRESS(HIBYTE  sp,  spcc5111),spcc5[21) 
END), 

swi  i  uq !  mm  \  wai 

(addrbuf  =  pc,  addrbus  =  sp,  databus  = 

LOBYTE  (addrbuf),  writeenable  =h, 

(sp,CC)  - 
BEGIN 

LET  spcc42  =  ALU(des, LOBYTE  sp,dalabus,cc) 
0UTPUT(MAKEADDRESS(H1BYTE  sp,  spa'4211)),spcc4212]) 
END), 

rts  1  rti:  (addrbus.  =  sp,  (sp,cc)  = 

BEGIN 

LET  spcc6  =  ALU(ins,LOBYTE  sp, databus  cc). 
OUTPUT(MAKEADDRESS(HIBYTE  sp,spcc61  ll),spcc6|21) 
END) 

ESAC, 
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co/1 

CASE  inst 

OF  scx!su:addrbus  :=  INCADDR  addrbus, 

clra  I  clrb  1  coma  I  comb  I  nega  I  negb deca  I  dcd)  I  inca  |  mcb  \  rola  ] 

rolb  { rora  |  rorb  I  asla !  aalb  |  asra  { asrb  I  Isra  I  larb  |  uta tstb  i  aba 

I  daa  Uba  I  tab  I  cba !  clc  i  cb  I  civ  [  sec  I  sei  I  sev  I  tap  I  tpa  I  nop: 

addrbus  •  =  pc, 

cpxlldtc 

(addibus :  ■*  pc; 

(x,cc)-  = 

BEGIN 

LET  xcc2  =  ALU(mst,LOBYTE  x,databus,cc). 

OUTPUT  (MAKEADDRESS(H1BYTE  x,  xcc2[1])acc2|2]) 
END), 

Ida 

(addrbua '  =  pc, 

(sp,cc)  = 

BEGIN 

LET  spcc7  =  ALU(mat,LOBYlE  ap,databua,cc). 
OUTPUT(MAKEADDRESS(HIBYTE  sp,  apcc711)),spcc7|21) 
END), 

psha  1  pshb  {ap,cc)  « 

BEGIN 

LET  apccS  «  ALU(des,LOBYTE  sp.databua,cc) 
OUTPUT(MAKEADDRESS(HIBYTE  ap,  spcc811J),spcc8|2I) 
END, 
pula  I  puib 
((ap.cc)  = 

BEGIN 

LET  spcc9  «  ALU(uia,HIBYTE  sp,LOBrrE  Bp,cc). 

OUTPUT  (MAKEADDRESS(spcc9(lj,LOBYTE  sp),spcc912)) 
END,  addrbus .  =  sp), 
deximx 
(x,cc)'  = 

BEGIN 

LET  xc<,3  -  ALU(inst,HIBYTE  x,LOBYTE  x,cc) 

OUTPUT  (MAKEADDRESS(xcc311),LOBYTE  x),xcc3|2]) 
END, 
deal  ins 
(sp,cc)  ■  = 

BEGIN 

LET  spcclO  =  ALU{mst,HIBYTE  sp,LOBYTE  sp,cc). 
OUTPUT(MAKEADDRESS(spccl011j,LOBYTEsp),spccl0121) 
END, 
tax 

(x,cc)’  :  = 

BEGIN 

LET  xccS  =  ALU(ms,HIBYTE  sp,  LOBYTE  x,cc)' 
OUTPUT{MAKEADDRESS(xcc8[l|,LOBYTE  x)accS12]) 

END, 
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(sp,  cc)  ;  = 

BEGIN 

LET  xcc9  =  ALU(des,HIBYTE  x,  LOBYTE  sp.ccj. 

OUTPUT(MAKEADDRESS(xcc9[l],LOBYTE  sp)picc9[7.]) 
END, 

staalstab  addrbus.=  pc, 

jsr  I  bsr  1  swi  [  irq  [  mm  1  wai'  ((sp,cc)  :  = 

BEGIN 

LET  spccll  =  ALU(des,HJBYrE  sp,LOBYTE  sp,cc). 

OUTPUT(MAKEADDRESS(spccllIl],LOBYTEsp),spccll[2]) 

END; 

addrbus  ■  =  sp;  databus:  =  HIBYTE  addrbuf; 
writeenable  ;  =  h; 

(sp,cc) 

BEGIN 

LET  spccl2  «=  ALU(des,LOBYTE  sp,databus,cc) 

OUTPUT(MAKEADDRESS(HlBYTEsp,5pccl2[l)),spccl2[2]) 

END), 

rtslrti;  ((sp,cc)  = 

BEGIN 

LET  spccl3  =  ALU(ms,HIBYTE  sp.LOBYTE  sp,cc) 

OUTPUT(MAKEADDRESS(spccl3|l),LOBYTEsp),spccni2)) 
END,  addrbus  =  sp,  (sp,cc)  = 

BEGIN 

LET  sp<.cl4  =  ALU(uis,LOBYTE  sp,databus,cc). 

OUTPUT(MAKEADDRESS(HIBYTEsp,spccl4|l)),spccl412)) 

END) 

ESAC, 
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coll- 

CASE  inst 

OF  stx;((databus,  cc)  :  = 

BEGIN 

LET  xcc5  =  ALU(stx,  databus,LOBYTE  x  ,cc). 

OUTPUT  (xcc511];(cc5[2]) 

END;  writeenable  ■  =  h), 
tst  I  clr  I  com  { neg  1  dec  I  me !  rol  I  ror  I  asl  i  asr ;  kr 
addrbus  :  pc, 
pshalpshb:  (sp,cc) 

BEGIN 

LET  spcclS  =  ALU(des,HIBYTE  sp,LOBYTE  sp.cc) 
OUTPUT(MAKEADDRESS(spccl511],LOBYTEsp),spccl5[21) 
END, 

pula:  a'  -  dalabus, 
pulb:  b'  •  databua, 
jsr  I  bar;  (sp,cc) ;  - 
BEGIN 

LET  spccl6  -  ALU(des,HIBYTE  sp,LOBYTE  sp,cc) 
OUTPUT(MAKEADDRESS(spccl6[ll,LOBYTEsp),spccl6[2]) 
END, 

rts  ((sp,cc)  « 

BEGIN 

LET  spccl7  -  ALU(im„HIBVTE  sp,LOBYTE  sp,cc) 
OUTPUT(MAKEADDRESS(spccl7lll,LOBYTEsp),spccl7121) 
END;  addrbus : »  sp; 
pc ; «  MAKEADDRESS(dalabus,da/0)), 
swi  1  irq  I  nmi  1  wai 
((sp.cc) 

BEGIN 

LET  spcclS  -  ALU(des,HIBYTE  sp.LOBYTE  sp.cc) 
OUTPUT(.MAKEADDRESS(spccl8|l],LOBYTEsp),spccl8|2)) 
END, 

addrbus  ■=  sp,  databus  =  LOBYTE  x, 
writeenable  =  h, 

(sp,cc)  = 

BEGIN 

LET  spccl9  =  ALU(des,LOBYTE  sp,databus,cc) 
OUTPUT(MAKEADDRESS(HlBYTEsp.spccl911)),spccl9[:i) 
END), 

rti  ((sp.cc)  = 

BEGIN 

LET  spcc20  -  ALU(ms,HIBYTE  sp.LOBYTE  sp.cc) 
OUTPUT(M.AKEADDRESS(spcc2011),LOBYTE  sp),spcc20121) 
END,  addrbus  =  sp, 
cc  databus, 

(sp.cc)  •  = 

BEGIN 

LET  spcc21  =  ALU(ins,LOBYTE  sp,databus,cc) 
OUTPUT(MAKEADDRESS(HlBYTEsp.spcc2111)),spcc21121) 
END) 

ESAC, 
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co/3: 

CASE  !::st 

OF  !ls|stxlpshalpula[pshb|pulbldexldeslmxliasltxsltsx: 
addrbus  :  =  pc, 

rts:  pc  MAKEADDRESS(H1BYTE  pc,databus), 
jsribsr;  addrbus- =  pc, 
swiiirqlnimlwai  ((sp,cc)  :  = 

BEGIN 

LET  spcc22  ■=  ALU(des,HIBYTE  sp,LOBYTE  sp,cc). 
OUTPUT(MAKEADDRESS(spcc22(l],LOBYTE  sp),spcc22(2]) 
END,  addrbus  :=  sp;  databus.”  HIBYTE  jqwiiteenable  •=  h;  (sp,cc) 
BEGIN 

LET  spcc23  =  ALU(dcs,LOBYTE  sp,databus,cc). 
OUTPUT(MAiaiADDRESS(HIBYTE  sp,spcc23[l]),spcc23(2]) 

rti,  ((sp,cc) .  = 

BEGIN 

LET  spcc24  =  ALU(uis,HlBYTE  sp.LOBYTE  sp,cc), 
OUTPUT(MAKFADDRESS(spcc24[ll,LOBYTEsp),spcc24[2J) 
END;  addrbus .  =  sp;  b  =  daiabus,  (sp,cc) :  = 

BEGIN 

LEI  spcc25  *  ALU(uis,LOBYTE  sp.databus.cc) 
OUTPUT(MAKEADDRESS(HIBYTE  sp,spcc25|l]),spcc25[2]) 

ESAC, 

co/4 

CASE  msl 

OF  rts-  addrbus.  “  pc, 
swi ;  irq  |  mm '  wai  ({sp,cc)  * 

BEGIN 

LET  spcc26  »  ALU(dcs,HIBYTE  sp,LOBYTE  sp,cc) 
OUTPUT(MAKEADDRESS(spcc26|l),LOBYTE  sp),spcc26|2|) 
END, 

addrbus  ^  sp,  daiabus-  =  a, 
writecnable  =  h, 

(sp,cc)  = 

BEGIN 

LET  spcc27  =  ALU(de5,LOBYTE  sp, daiabus, cc) 
eO^TPUT(MAKEADDRESS(HIBYTEsp,spcc2711)),spcc27[2)) 

rli  ((sp.cc)  - 
BEGIN 

LET  spcc28  =  ALLI(ins.HIB'iTE  sp.LOBYTE  sp.cc)' 
OUTPUT(MAKEADDRESS(spcc2811J,LOBYTE  sp),spcc28|2J) 

END,  addrbus  »  sp, 
a  »  daiabus. 

(sp.cc)  = 

BEGIN 

LET  spcc29  »  ALU(in$,LOBYTE  sp,dalabus,cc) 
E^>’UT(MAKEADDRESS(HIBYTEsp,spcc2911)),spcc2912J) 
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co/5. 

CASE  inst 
OF  swi|irq[nimlwai‘ 

((sp,cc)  ;  = 

BEGIN 

LET  spcc30  -  ALU(des,HIBYTE  sp,LOBYTE  sp.cc). 
OUTPUT(MAKEADDRESS(spcc30[l),LOBYTE  sp),spcc30[2]) 
END, 

addrbus  :=  sp;  databus  -  b;  wnteenable  :=  h, 

(sp,cc)  ;  = 

BEGIN 

LET  spcc31  =  ALU(des,LOBYTE  sp, databus, cc) 
OUTPUT(MAKEADDRESS(HIBYTE  sp,spcc31111),spcc31[21) 

END), 

rti;  ((sp,ce):“ 

BEGIN 

UET  spcc32  =  ALU(ins,HIBYTE  spOXJBYTE  sp,cc) 
OUTPUT(MAKEADDRESS(spcc32(llJX>BYTE  sp),spcc32121) 
END;  addrbus ;  -  sp,  k  =  MAKEADDRESS(databus,da;0); 

(sp,cc)  .  = 

BEGIN 

LET  spcc33  -  ALU(ins,LOBYTE  $p,databus,cc). 

OUTPUT(MAKEADDRESS(HIBYTEsp,spcc33111),spcc33|2]) 

END) 

ESAC, 

co/6 

CASE  mst 
OF  swi  1  irq  I  nmi  1  wai 
((sp,cc)  » 

BEGIN 

LET  spcc34  -  ALU(de5,HlBYTE  $p,LOBYTE  sp,cc) 
OUTPUT(MAKEADDRESS(spcc34lll,LOBYTEsp),spcc34121) 
END, 

addrbus  -  sp,  daiabus  =  cc, 
writccnable  =  h, 

(sp.cc) .  = 

BEGIN 

LET  spcc35  “  ALU(des,LOBYTE  sp, daiabus, cc) 
OUTPLrr{MAKEADDRESS(HIBYTEsp,spcc35|ll),spcc35121) 
END), 

rli  ((sp,cc)  = 

BEGIN 

LET  spcc36  -  ALU(iiis,HIBYTE  5p,LOBYTE  5p,cc). 
OUTPUT(MAKEADDRESS(spcc36ll).LOBYTE  sp),spcc36121) 
END,  addrbus  “  sp, 

X.  -  MAKEADDRESS(HIByTE  iqdaiabus), 

(sp,cc)  = 

BEGIN 

LET  spcc37  =  ALU(ins,LOBYTE  sp,databus,cc) 

OUTPUT(MAKE,ADDRESS(HIBYTEsp,spcc37111),spcc37[2]) 

END) 

ESAC, 
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co/7; 

CASE  inst 
OF  swiSirqlnjnijwai. 

((sp,cc)  •  = 

BEGIN 

LET  spcc38  =  ALU(des,HIBYTE  sp,LOBYTE  sp.cc). 
OUTPUT(MAKEADDRESS(spcc38[l],LOBVTE  sp),spcc38[2]) 
ENDiCC-  (ALU(sei,da/0,da/0,cc))|2]), 
rti:  ((sp,cc)  ;  = 

BEGIN 

LET  spcc39  -  ALU(ins,HIBYTE  sp,LOBYTE  sp,cc), 
OUTPUT(MAKEADDRESS(spcc39111,LOBYTEsp),spcc39|2]) 
END,  addrbus ;  =  sp, 
pc  -  MAKEADDRESS  (databus,da/0)) 

ESAC, 

co/8 

CASE  inst 

OF  swi  addrbus  =  ad/16rfffa, 
irq  addrbus  =  ad/16r{ff8, 
nim  addrbus:  =  ad/16rfffc, 
rti  pc  -  MAKEADDRESS  (HIBYTE  pc,databus5, 
wai  mtcrcount  =  co/2 
ESAC, 
co/9' 

CASE  mst 

OF  swi:(pc.  “MAKEADDRESS(databus,da/0),  addrbus.  “ad/16rffib), 
irq:(pc  •■MAKEADDRESS(databus,da/0),  addrbus- ■>  ad/16rfff9), 
ami(pc  aiMAK£ADDRESS(databus,da/0),  addrbus  -  ad/16rff{d), 
rti  addrbus  =  pc 
ESAC, 
co/in 
CASE  inst 

OF  swi  I  irq  1  nmi  pt  =  MAKEADDRESS(H1B^TE  pc,dal3bus'l 
ESAC, 
co/ll 

addrbus  =  pc 
ESAC 

ESAC) 

ESAC, 

OUTPUT  (databus,addrbus,wnleenablc) 

END 
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#EzterDal  Memor}'  and  Test  Harness# 

FNMAKERAM  =  (data,address, address, flag)  ->  data  RAM  (da/16r0), 

FN  DEL  •=  (data)  ->  data:  DELAY  (da/16r0,l) 

™  HARNESS  =  (flag-reset  birq  bnnu,  data  hexIOOO  hexfOOl  hexfD02)  -  >  [Sldata- 
BEGIN  ^  ■* 

make  UP6800;  micproc, 

DEL;  delay  olatchl  olatch2  olatchS, 

MAKERAM;  ram 


JOIN  reset  -  >  micproc[2], 

CASE  imcproc[2] 

OF  ad/16rfD00-  hexfiXM, 
adyidrfOOl:  hexfOOl, 
ad/16rflX)2;  hexfD02 
ELSE  ram 
ESAC  -  >  delay, 
delay ->  micproc[l], 

(micprocll],micproc[21,micproc[2],niicprocl3|)-  >  ram, 
birq  -  >  imcproc[3),  #irq# 
bmm  -  >  micproc[41,  #nmi# 
h  -  >  micproc(5|,  #halt# 

CASE  micprocl2| 

OF  ad'lbreOOO.  inicprac|l| 

ELSE  olatchl 
ESAC  ■>  olatchl, 

CASE  imcproc(2] 

OF  adyidreOOl  mjcprocll] 

ELSE  olatch2 
ESAC  •  >  olatch2, 

CASE  micproc[2] 

OF  ad/16rc002  micproc[lj 
ELSE  olaichj 
ESAC  -  >  olatchS 


OUTPUT  (olatchl, olalch2,olalch3) 
END 
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AppentUx  B: 

The  following  programs  all  work  on  my  ELLA  description  of  the  6800  microprocessor. 

They  are  held  on  disk  by  the  ELLA  group  at  DRA  Malvern  To  run  any  program  the  programs  initialise 
and  monitor  must  be  stored  as  [6800]microinit  eh  and  [6800]monitor.eli  since  all  the  other 
programs  call  these 

Note*  i)  CO  is  a  simulator  command  for  comment  1  have  left  them  in  for  completeness 

li)  These  programs  have  been  modified  sh^tly  from  when  they  were  origmally  wntten  because 

of  changes  to  the  reset  circuitry.  They  run  on  the  model  described  above 

iii)  If  you  wish  to  see  the  microprocessor  operating  the  following  node  names  are  useful  to 
momtor: 

micproc  pc  program  counter 

micproc.admodc  addressing  mode 

micproc.mst  instruction  mnemonic 

micproc.databus  value  on  the  data  bus 

micproc  addrbus  value  on  the  address  bus 

micproc.a  accumulator  a 

micproc.b  accumulator  b 

micprocjc  index  renter 

micproc  sp  stack  pomter 

nucproc  cc  condition  code  register 


Initialise 

CO  This  program  performs  a  reset  by  setting  parameter  1  low  for  1  timestep,  clears  the  a,  b  and  x,  icgisicrs, 

CO  sets  (he  stack  pointer  to  &7fff,  clears  ibc  condition  codes  register  and  jumps  to  location  &000d 

simulalefn  HARNESS 

cp  1  h  h  da/0  da/0  da/0 

iram  ram  [16r8000]  da/16r4f,  co  reset  clra 

iram  ram  [IbrSOOl]  da/16r5f,  co  cirb 

iram  ram  [16r80021  da/16r8e,  co  Ids 

tram  ram  [16r80031  da/16r7f, 

iram  ram  [16r80041  da/'16rft, 

i-jiB  ram  |16r8005]  da/lOrce,  co  Idx  #&0000 

iram  ram  [16rS006]  da/16r00, 

iram  ram  [16r8007j  da/16r00, 

iram  ram  [16r8008]  da/16r06,  co  tap 

iram  ram  [16r8009]  da/16r7e,  co  jmp  &000a 

iram  ram  [16r800aj  da,'16r00 

iram  ram  [16r800b]  da/16r0a 

iram  ram  jl6rfffe]  da/16r80,  co  defme  address  (o  jump  to  on  reset 
iram  ram  {16rSff]  da/16K)0 
U  +1 
cp[l]h 
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Monitor 

CO  This  program  allows  the  onlme  changmg  of  a  program  by  performmg  an  nmi 
CO  (make  mput  [3]  low  for  1  cycle  with  mputs  [4. 6]  holding  the  appropriate 
CO  values).  Input  [4]  controls  the  funcUon  as  follows: 

CO  da/D  advance  counter  and  display  with  contents  of  that  location 
CO  da/1  change  contents  of  location  to  value  of  input  [5] 

CO  da/2  load  counter  with  contents  of  input  [S..6J 

CO  da/3  execute  your  program  starting  at  location  defined  by  counter 

M  *e^“0“tor  type  (from  the  simulator)  cp  (3 .6]  I  da/2  da/  <  address,  >  da/  <  address,  >  ,U  +  7, 

in  [68(XI]niiCToinit 

iram  ram  [16r9000]  da/16rb6,  co  .memtor  Idaa  &fD00 

iram  ram  [16t900lj  da/lfirfO 

iram  ram  il6r9002]  da/16t00 

iram  ram  [16t9003]  da/16r84,  co  anda  #&0f 

iram  ram  (16r9004j  da/16t0f 

iram  ram  [IfirflOOS]  da/16r81,  co  empa  #&03 

iram  ram  [16r9006j  da/16r03 

iram  ram  (16r9007]  da/16r23,  CO  bis  .valid 

iram  ram  [16r9008j  da/16r01 

iram  ram  [1619009]  daT6r3b,  co  rti 

iram  ram  il6t900a)  da/16r8c,  CO  valid  Ids  #&7fff 

iram  ram  |16r900b]  da/16r7f 

iram  ram  il6r900cl  da/16rff 

iram  ram  |16r900d]  da/16r81,  co  empa  #&01 

iram  ram  (16r900e]  da/16r01 

ir.7m  ram  [1619001]  da/16r26,  co  bne  nochangc 

iram  ram  [16r9010)  da'16r03 

iram  ram  [16r9011]  da/16rbd,  CO  jsr  rl.i.a»a 

iram  am  [16r9012j  da/16r91 

iram  ram  [1619013]  da/16i00 

iiam  ram  (1619014)  da/16r81,  co  nochange  empa  #&01 

iram  ram  [16i9015]  da/16r01 

iram  ram  [16r9016]  da/16i22,  co  bhi  .noadi 

iram  ram  [16i9017]  da/16r01 

iram  ram  [IfirOOlS]  da/16r08,  co  inx 

iram  ram  [16i9019]  da/16i81,  co  noadv  empa  #i02 

u-am  ram  [16r901a]  da/16r02 

iram  ram  (16i901b]  da'16i26,  co  bne  oldx 

iram  ram  [16i901c]  da/16i03 

iram  ram  [16i901d]  i!i/'6rfe,  co  Idx  41001 

iram  ram  [16r901e]  da/16i'0 

iram  ram  [16r901f]  da/16i01 

iram  ram  (16i9020]  da/16r81,  co  .oldx  empa  #403 

iram  ram  [16r9021]  da/16r03 

iram  ram  [16r9022]  da/15i26,  co  bne  print 

iram  ram  (1619023)  da/16i02 

iram  ram  (1619024)  da/16r6e,  CO  jmp  400,  x 

iram  ram  (16i9025]  da/16rt)0 

iram  ram  [16i9026)  da/16re6,  co  .pnnt  Idab  400,  x 

iram  ram  [16r9027]  da/16r00 

iram  ram  (16i9028)  da/16rn,  co  stab  4e002 

iram  ram  [16r9029)  da/16re0 

iram  ram  [16r902ai  da/16r02 

iram  ram  [16i902b)  da/16iff,  co  stx  4e000 
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iram  ram  [16r902cl  da/16re0 

iram  ram  (16r902d]  da/16r00 

iram  ram  [16r902e]  da/16r3e,  co  wai 

iram  ram  [16r9l001  da/16rf6,  co  .change  Idab  &f00l 

iram  ram  [16r9101]  da/16rf0 

iram  ram  [16r9102]  da/16r0l 

iram  ram  [16r9103j  da/16rc7,  co  stab  &00pc 

iram  ram  [16r9104]  dayi6r00 

iram  ram  [16r9l05]  da/16r39,  co  its 

iram  ram  [16rMc]  da/16r90,  co  defme  omi  address 


tram  ram  (16rfffd]  da/16r00 


Testprogl 

CO  This  is  a  very  simple  program  which  prints  out  the  numbers  1,4,7,  by  adding  3  to  the  previous  number 
co  etc. 

in  [6800]monitor 

iram  ram  [10]  dayi6r86,  co  .start  Idaa  #&0l 
iram  ram  [11]  da/16r01 

iram  ram  [12]  dayi6r8b,  co  adda  #<^03 

iram  ram  [13]  da/16r03 

iram  ram  [14]  da/16rb7,  co  staa  &e00() 

iram  ram  [15]  da/16re0 
iram  ram  [16]  da/16r00 

iram  ram  [17]  da/16r7e,  co  jmp  &000c 

iram  ram  [18]  da/16r00 

iram  ram  [19]  da/16r0c 

tabulated 

me 
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Tcstprog2 

CO  This  program  is  the  Grst  m  a  series  of  Fibonacci  sequence  programs  It 
CO  uses  only  the  a  register  and  only  direct,  extended  and  relative  addressing 
CO  It  was  written  to  run  on  the  early  model  which  only  had  six  mstructions 


in  [6800]momtor 

iram  ram  [10]  da/16r86,  co 

.start  Idaa  #&00 

iram  ram  [11]  da/16K)0 
iram  ram  [12]  da/16r97,  co 

staa  &00 

iram  ram  [13]  da/16i00 
iram  ram  [14]  da/16r97,  co 
iram  ram  [15]  da/16r03 

.loop  staa  &03 

iram  ram  [16]  da/16r86,  co 
iram  ram  [17]  da/16r01 

Idaa  #&0l 

iram  ram  [18]  da/16r97,  co 

staa  #&0l 

iram  ram  [19]  da/16r01 
iram  ram  [20]  da/16r96,  co 

Idaa  &01 

iram  ram  [21]  da/16r00 
iram  ram  [22]  da/16r9b,  co 

adda 

iram  ram  [23]  da/ldrOl 
iram  ram  [24]  da/16r97,  co 

staa  &02 

iram  ram  [25]  da/16r02 
iram  ram  [26]  da/16rb7,  co 
iram  ram  [27]  da/16re0 
iram  ram  [28]  da'lbrOO 

staa  &e000 

iram  ram  [29]  da/16r96,  co 
iram  ram  [30]  da/16r01 

Idaa  &01 

iram  ram  [31]  da/16r97,  co 
iram  ram  [32]  da^lbrOO 

staa  &00 

iram  ram  [33]  da'16r96,  co 

Idaa  &02 

iram  am  [34]  da/16r02 
iram  ram  [35]  da/16r97.  co 

staa  &01 

iram  ram  [36]  da'16r01 
iram  ram  [37]  da'l6r9o.  co 

Idaa  .^03 

tram  ram  [38]  da'lbrOB 
iram  ram  [39]  da'lorSb,  co 

adda  #<Sc01 

iram  ram  [40]  da/16r01 
tram  ram  [41]  da'16r97,  co 

staa  ^^03 

iram  ram  [42]  da'16r03 
tram  ram  [43]  da^l6r8U.  cc 

subd  #^0a 

iram  ram  [44]  da'16r0a 
iram  ram  [45]  da'16r27,  co 

boe  skip 

iram  ram  [46]  da  16r03 
tram  ram  [47]  da/16r7e,  co 
iram  ram  [48]  da/lOrOO 
iram  ram  [49]  da/16rl4 

jmp  loop 

iram  ram  [50]  da/16r7e,  co 
iram  ram  [51]  da/16r00 
iram  ram  [52]  da^lbrOa 

jmp  start 

tabulated 

me 
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Testprog3 

CO  TTus  Fibonnaca  program  uses  indexed  addressing 
in  [6800]monitor 

iram  ram  [10]  da/16r86,  co  start  Idaa  #&00 

iram  ram  [11]  da/16r00, 

iram  ram  [12]  da/16r97,  co  staa  &00 

iram  ram  [13]  da/16r00, 

iram  ram  [14]  da/16r97,  co  staa  &03 

iram  ram  [15]  da/16i03, 

iram  ram  [16]  da/16r86,  co  Idaa  #&01 

iram  ram  [17]  da/16i01, 

iram  ram  [18]  da/16r97,  co  staa  &01 

iram  ram  [19]  da/16r01, 

iram  ram  [20]  da/16rc6,  co  Idab  #&0a 

iram  ram  [21]  da/16r0a, 

iram  ram  [22]  da/l6r96,  co  .main  Idaa  &0Q 

iram  ram  [23]  da/lbrOO, 

iram  ram  [24]  da/16r9b,  co  adda  &.01 

iram  ram  [25]  da/16r01, 

iram  ram  [26]  da/16r97,  co  staa  &02 

iram  ram  [27]  da'16r02, 

iram  ram  [28]  da('16rb7,  co  staa  &e000 

iram  ram  [29]  da/lbreO, 

iram  ram  [30]  dayi6r00, 

iram  ram  [31]  da'lbrcc,  co  Idx  #&0001 

iram  ram  [32]  da/16rOO, 

iram  ram  [33]  da/16r01, 

iram  ram  (34)  da/16ra6.  co  .loop  Idaa  &00^ 

iram  ram  [35]  da/l6r00, 

iram  ram  [36]  da/16r09,  co  dcx 

iram  ram  [37]  da^l6ra7,  co  staa  &00^ 

iram  ram  [38]  da'lbrOO, 

iram  ram  [39]  da'16r08,  co  inx 

iram  ram  [40]  da'16r08,  co  mx 

iram  ram  [41]  da'16r8c,  co  cpx  &0003 

iram  ram  [42]  da/16r00, 

iram  ram  [43]  d'ri6r03, 

iram  ram  [44]  dA/16r26,  co  bne  loop 

iram  ram  [45]  da'16r^4, 

iram  ram  [46]  da'16rDa,  co  decb 

tram  ram  [47]  da/16r26,  co  bnc  .mam 

iram  ram  [48]  d4/16re5, 

iram  ram  [49]  da/16r7c,  co  jmp  start 

iram  ram  [50]  da/lbrOO, 

iram  ram  [51]  da/16r0a, 

tabulated 

me 
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Te9tpro|;4 


CO  This  program  tests  the  x  register  and  stack  pomter,  it  places  the  ten  Rbonnaca 
CO  numbers  generated  on  the  stack  and  outputs  them  m  reverse  order, 
in  [6800]monitor 

iniUahseram  ram  [10]  da/16r86,  co  .start  Idaa  #&00 

initialiseram  ram  [11]  da/16r00, 

imtialiseram  ram  [12]  da/16r97,  co  staa  &00 

initialiseram  ram  [13]  da/16r00, 

initialiseram  ram  [14]  da/16r97,  co  staa  &03 

initialiseram  ram  [IS]  da/16i03, 

initialiseram  ram  [16]  da/16r8e,  co  Ids  #&0403 

initialiseram  ram  [17]  da/16r04. 

initialiseram  ram  [18]  da/16r03, 

initialiseram  ram  [19]  da/16r86,  co  Idaa  #&01 

initialiseram  ram  [20]  da716i01, 

initialiseram  ram  [21]  da/16i97,  co  staa  &01 

imtialiseram  ram  [22]  da/16i01, 

initialiseram  ram  [23]  da/16rc6,  co  Idab  &0a 

initialiseram  ram  [24]  da/16r0a, 

initialiseram  ram  [2S]  da/16r96,  co  .mam  Idaa  &00 

mitialiseram  ram  [26]  da/16r00, 

initialiseram  ram  [27]  da/16r9b,  co  adds  &01 

mitialiseram  ram  [28]  da/16r01, 

initialiseram  ram  [29]  da/16i97,  co  staa  &02 

initialiseram  ram  [30]  da/16r02, 

imtialiseram  ram  [31]  da/16r36,  co  psha 

mitialiseram  ram  (32)  daT6rce,  co  Idx  r*&0001 

imtiahseram  ram  [33]  da/16r00, 

initialiseram  ram  [34]  da/16r01, 

initialiseram  ram  [35]  da/16ra6,  co  loop  Idaa  diOO.x 

mitialiseram  ram  [36]  da/16r00, 

mitialiseram  ram  [37]  da/16r(W,  to  dex 

mitialiseram  ram  [38]  da/16ra7,  co  staa  &00,x 

mitialiseram  ram  [39]  da'16r00, 

mitialiseram  ram  [40]  da/lbrOS,  co  inx 

mitialiseram  ram  [41]  da/16r08,  co  mx 

imtialiseram  ram  [42]  da/16r8c,  co  cpx  &0003 

imtialiseram  ram  [43]  da/16r00, 

initialiseram  ram  [44]  da/16r03, 

imtialiseram  ram  [45]  da/16r26,  co  bne  loop 

initialiseram  ram  [46]  da/16rf4, 

initialiseram  ram  [47]  da/16rSa,  co  deeb 

imtialiseram  ram  [48]  da/16r26,  co  bne  mam 

mitialiseram  ram  [49]  da/16rc7, 

mitialiseram  ram  [SO]  da/16rce,  co  Idx  #&000a 

mitialiseram  ram  [Slj  da/16iOO, 

imtialiseram  ram  [52]  da/16r0a, 

imUahseram  ram  [53]  da/16r32,  co  loop3  pula 

initialiseram  ram  [54]  da/16rb7,  co  staa  &eW0 

mitialiseram  ram  (Ssj  da/16rc0, 

mitialiseram  ram  [S6]  da/16r00. 

mitialiseram  ram  [57]  da'16r09,  co  dex 

initialiseram  ram  [58]  da'16r26,  co  bne  loop? 

imtiahseram  ram  [59]  da/16rf9, 

mitialiseram  ram  [60]  dayi6r7e,  co  jmp  start 
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mitialiseram  ram  [61]  da/16r00, 
initialiseram  ram  [62]  da/16r0a, 
tabulated 
me 


4? 


TestprogS 


CO  This  is  soother  Fibooacci  program  which  tests  the  Jsr  instruction 


in  [6800]moiiitor 
initialiseram  ram  [10] 
initialiseram  ram  [11] 
initialiseram  ram  [12] 
initialiseram  ram  [13] 
initialiseram  ram  [14] 
initialiseram  ram  [15] 
initialiseram  ram  [16] 
initialiseram  ram  [17] 
initialiseram  ram  [18] 
imtialiseram  ram  [19] 
imtiahseram  ram  [20] 
initialiseram  ram  [21] 
initialiseram  ram  [22] 
initialiseram  ram  [23] 
initialiseram  ram  [24] 
initialiseram  ram  [25] 
initialiseram  ram  [26]  < 
imtiahseram  ram  [27]  i 
initialiseram  ram  [28]  i 
initialiseram  ram  [29]  ( 
initialiseram  ram  [30]  ( 
imtiahseram  ram  [31]  < 
imtialiseram  ram  [32]  i 
imtiahseram  ram  [33]  c 
imtiahseram  ram  [34]  c 
imtiahseram  ram  [35]  c 
initialiseram  ram  [36]  c 
mitiahseram  ram  [37]  d 
initialiseram  ram  [38]  d 
initialiseram  ram  [39]  d 
imtiahseram  ram  [40]  d 
mitiahseram  ram  [41]  d 
imtiahseram  ram  [42]  d 
imtiahseram  ram  [43]  d 
imtiahseram  ram  [44]  d 
imtiahseram  ram  [45]  d 
imualiseram  ram  [46]  d 
miualiseram  ram  [47]  d 
miuaiiscram  ram  [48]  d 
initialiseram  ram  [49]  d: 
imtiahseram  ram  [50]  di 
imtialiseram  ram  [51]  di 
mitiahseram  ram  [52]  di 
imtiahseram  ram  [53]  di 
mitiahseram  ram  [54]  di 
mitiahseram  ram  [55]  di 
mitiahseram  ram  [56]  di 
imtiahseram  ram  [57]  di 
imtialiseram  ram  [58]  di 
mitiahseram  ram  [59]  da 
imtiahseram  ram  [60]  da 


10]  da/16r86,  co 

11]  da/16r00, 

12]  da/16r97,  co 
3]  da/16r00, 

.4]  da/16r97,  co 

5]  da/16r03, 

6]  da/16r8c,  co 

7]  da/16r04, 

8]  da/16r01, 

9]  da/16r86,  co 
0]  dayi6r01, 

1]  da216r97,  co 

2]  da/16r01, 

3]  da/16rc6,  co 

4]  da/16r0a, 

5]  da/16r96,  co 
5]  da/16r00, 

7]  63716196,  CO 
3]  da/16rfll, 

>)  dayi6r97,  co 
)]  da/16r02, 
ij  da/16rb7.  co 
!]  da/16rc0, 

1]  da716rOO, 

1)  da/16r36,  co 
ij  da/16rbd,  co 
ij  da716r00. 

]  da/16t35, 
j  da/16r5a,  co 
j  da/16r26,  co 
j  da'16rf0, 

]  da/16rce,  co 
j  da'lbrOO, 
j  da,'16r0a, 
j  dA/16r32,  CO 
j  da/16r97,  CO 
I  da/16r02, 
j  da716r09,  co 
I  dii'16r26,  co 
I  da/16rfa, 
da/16r7e,  co 
da/16r00 
da/16i0a, 
da/16rce,  co  .! 
da/16r00, 
da716rOO, 
da716ra6,  co  1 
da/16r01, 
da/16ra7,  co 
dayi6i00, 
da/16r08,  co 


,start  Idaa  #&00 


Ids  #&0401 


Idaa  #&01 


Idab  &0d 


mam  Idaa  &00 
adda  <&U1 


staa  &e000 


psha 

jsr  swap 

decb 

bne  mam 
Id*  #i000a 


loop2  pula 
staa  6:02 

dex 

bne  loop2 
jmp  start 


■swap  Idx  #&0000 


loop  Idaa  &01,  x 
staa  &00,  X 
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initialiseram  ram  (61)  da/16r8c,  co  cpx  &0002 

initialiseram  ram  [62]  da/16r00, 

initialiseram  ram  [6‘^j  da/16r02, 

initialiseram  ram  [64]  da/16r26,  co  bne  Joop 

initialiseram  ram  [65]  da/16rf6, 

initialiseram  ram  [66]  da/16r39,  co  rts 

tabulated 

me 
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T«tprog6 


CO  This  is  yet  another  Fibonacci  program,  which  uses  a  software  mterrupt  (swi) 
CO  instead  of  the  jsr  m  the  last  program  (testprogS) 

m  [6800]monitor 

initialiseram  ram  [10]  da/16r86,  co  .start  Idaa  #&00 

initialiseram  ram  [11]  da/16r00, 

initialiseram  ram  [12]  da/16r97,  co  staa  &00 

initialiseram  ram  [13]  da/16r00, 

initialiseram  ram  [14]  da/16r97,  co  staa  &03 

initialiseram  ram  [15]  da/16r03, 

initialiseram  tarn  [16]  da/16r8e,  co  Ids  #&0401 

initialiseram  ram  [17]  da/16i04, 

initialiseram  ram  [18]  da/16r01, 

initialiseram  ram  [19]  da/16r86,  co  Idaa  #&01 

initialiseram  ram  [20]  da/16r01, 

initialiseram  ram  [21]  da/16r97,  co  staa  &01 

initialiseram  ram  [22]  da/16r01, 

initialiseram  ram  [23]  da/16rc6,  co  Idab  &0a 

initialiseram  ram  [24]  da/16i0a, 

initialiseram  ram  [25]  da'16r96,  co  .mam  Idaa  &00 

uutiahseram  ram  [261  d»'!6rno 

iniualiseram  ram  [2i\  da/16r9b,  co  adda  &01 

initialiseram  ram  [28]  da'lbrOl, 

iniualiseram  ram  (29)  da/16r97,  co  staa  &02 

initialiseram  ram  (30)  da/16r02, 

initialiseram  ram  [31]  da/16rb7,  co  staa  AeflOQ 

initialiseram  ram  [32]  da/16re0, 

initialiseram  ram  [33]  da/16r00, 

initial  seram  ram  (34)  da/16r36,  co  psha 

iniuahseram  ram  [35]  da/16r3f,  co  swi 

imtiahscram  ram  [36]  da/16r5a,  co  decb 

imualiseram  ram  [37]  da/16r26,  co  bne  ,mam 

initialiseram  ram  (38)  da/16rf2, 

initialiseram  ram  [39]  da/16rce,  co  Ida  #&000a 

mitialiscram  ram  [40]  da'16r00, 

miuahseram  ram  [41]  da/16r0a, 

iniualiseram  ram  [42]  da'16r32,  co  loop2  pula 

initialiseram  ram  [43]  da/16r97,  co  staa  &02 

initialiseram  ram  [44]  da/16t02, 

imtialiseram  ram  [45]  da/16t09,  co  dex 

initialiseram  ram  [46]  da'16r26,  co  bne  loop2 

initialiseram  ram  [47]  daiT6rfa, 

initialiseram  ram  [48]  da'16r7e,  co  jmp  start 

initialiseram  ram  [49]  da/16r00, 

initialiseram  ram  [50]  da/16i0a, 

iniualiseram  ram  [51]  da/16rce,  co  swap  Ida  #&0000 

iniualiseram  ram  [52]  da'16i00, 

initialiseram  ram  [53]  da/16r00, 

initialiseram  ram  [54]  da/16ra6,  co  loop  Idaa  &01,  a 

imualiseram  ram  [55]  dayibrOl, 

uutiahseram  ram  (56)  da/16ra7,  co  staa  &00,  a 

mitiahseram  ram  [57]  da'16r00, 

imtialiseram  ram  [58]  da/16r08,  i  o  ina 

imualiseram  ram  [59]  da/16r8c,  to  cpx  &0002 
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initialiscram  ram  [60]  da/16r00, 
imtialiscram  ram  [61]  da/16r02, 
ioitialiseram  ram  [62]  da/16r26,  co 
mitialiseram  ram  [63]  da/16rf6, 
imtialiscram  ram  [64]  da/16r3b,  co 
isitialiseram  ram  (16rffia]  da/16i00,  co 
mitialiseram  ram  [16rffib]  da/16r33,  co 
tabulated 
me 


bnc  .loop 
rti 

defme  swi  address 
.swap 
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Testprog? 

CO  This  is  an  19  byte  program  which  generates  the  first  11  Fibonaui  numbers  It  operates  by  clearing  one 
CO  location  on  the  stack  to  zero,  then  loading  the  a  register  with  &01  and  x  with  &000b.  Accumulator  b  is 
CO  then  pulled  &om  the  stack,  then  a  is  pushed  to  u.  Renter  a  is  added  to  b  with  the  result  in  a.  x  is 
CO  decremented.  If  x  is  not  zero  then  b  is  pulled  from  the  stack,  a  is  pushed  to  it  etc.  Otherwise  the  program 
CO  waits  for  an  interrupt.  It  is  short  because  it  was  written  to  be  effident  rather  than  to  test  specific 
CO  instructions.  However  Testprog2  performs  an  identical  function  and  I  believe  is  optimised  for  the  first 
CO  6  instructions  implemented  (see  The  Motorola  6800  Model,  initial  design)  but  is  twice  as  long  This 
CO  demonstrates  that  more  complex  operations  are  useful  on  a  microprocessor 

in  [6800}monitor 


iram  ram  [16i000a]  dayi6r34,  co 

Start 

des 

■ram  ram  [16K)00b]  da/16r30,  co 

tsx 

iram  ram  [16t<X)0c]  da/16r6f,  co 
iram  ram  [I6r000d]  da/16r00 

clr  &00  pc 

iram  ram  [IdrOOOe]  da/16rce,  co 
iram  ram  jl6i000f|  da/ldrOO 
iram  ram  [IdrOOlO]  da/16r0b 

Idx  #&000b 

iram  ram  [IdiOOllj  da/16rg6,  co 
iram  ram  [1610012]  da/16t01 

Idaa  #&01 

iram  ram  [16r0013]  da/16r33,  co 

.loop 

pulb 

iram  ram  [lOrOOwj  da/16r36,  co 

psha 

iram  ram  [16r0015]  da/16rlb,  co 

aba 

iram  ram  [lOrOOld]  da/16rb7,  co 
iram  ram  jl6r0017]  da'lOreO 
■ram  ram  (IbrOOlsj  dayibrOO 

staa  &c000 

iram  ram  [1610019]  da/16r09,  co 

dex 

uam  ram  |16r001a]  da/16r26,  co 
iram  ran  [16r001b]  da/lOrH 

bne  .loop 

iram  ram  (16r001c]  da/16r3e,  co 
tabulated 

wai 

me 


Appendix  C:  Hie  Motorola  6800  instruction  Set 


Provided  here  is  a  brief  list  of  the  6800  assembler  mnemonics  and  their  functions  It  is  not  intended 
to  provide  programming  information,  which  may  be  obtamed  from  The  Motorola  Data  Sheet  (see 
Bibbography) 


Accumulator  and  Memory  Instnictions: 


adda 

addb 

aba 

adca 

adcb 

anda/andb 

bita/bitb 

clr/clra/chb 

cmpa/cmpb 

cba 

com/coma/comb 

neg/oegau'negb 

daa 

dec/deca/decb 

eora/corb 

inc/mca/mcb 

Idaa/ldab 

oraa/orab 

psha/pshb 

pula/pulb 

rol/rola/rolb 

ror/rora/rofb 

asl/asla/aslb 

asr/asra/asrb 

Isr/lsralsrb 

siaa/stab 

suba/subb 

sba 

sbca/sbcb 

tab/tba 

tsi/tsta/tsib 


•:  Add. 

:  Add- 

•:  Add  accumulators 
••  Add  with  carry; 

.  Add  with  carry 
,  And 
Bit  test 
.  Clear 
Compare 

'  Compare  accumulators 

■  I’s  complement. 

2’s  complement  (negate) 
decimal  adjust  a 
decrement 
exclusive  or 
.  increment 
load  accumulator 
uclusive  or 

push  a  /  b  to  stack  (LIFO) 
pub  a  /  b  from  stack 

■  rotate  left  m  /  a  /  b 

■  rotate  right  m  /  a  /  b 

:  anihmcuc  shift  left  m  /  a  /  b 
'  arithmetic  shift  right  m  /  a  /  b 
logic  shift  right  m  /  a  /  b 
store  accumulator 
subtract 

subtract  accumulators 
subtract  with  carry 
transfer  accumulators 
lest,  zero  or  mmus 


a**a+m 

b*=b+ro 

a®a+b 

a*a+m+c 

b“b+m+c 

2«a  AND  m  /  b=b  AND  m 
a  AND  m  ?  b  AND  m 
m=0 / a=0 / b=0 
a*m  /  b-m 
a-b 

m~&ff-m  /  a  =  &ff-a  /  b  =  &ff-b 
m=0-m  /  a  =  0-a  /  b  =  0-b 

m*m*l  /  a  =  a'l  /  b*=b-l 
a  XOR  m  (  b  XOR  m 
m=m+l/a=a+l/b=b+l 
a»m  /  b*=m 
a*aORm/b»bORm 


m^a  /  ni“b 
a  =  a'm  /  b“b-n: 
a  =  a*b 

a  =  a-m-c  /  b  =  b*m-c 
b  =  a  /  a  «  b 
m-0  /  a-0  /  b-0 


Index  Register  and  Stack  Manipulation  Instructions 


cpx 

.  compare  x  to  m, 

dex/des 

decrement 

inx/'ms 

mcremen; 

Idx/lds 

'  load  register 

sex/sts 

store  register 

(x&asx 

transfer  registers 

X  =  X'l  /  sp  =  sp'l 
X  =  X-4-  1  /  sp«sp+  I 

Xn“m,  x;,  =  (m  +  l)  /spf,*m,  sp,  =  fm  +  l) 
m  =  x„,  (m  + 1)  =  x,  /  m»sp„,  (m  + 1)  *=sp, 
Sp*X-l  /  X“Sp+l 


Jump  ind  Branch  Instructions: 


bra 

>:  branch  always 

bcc 

•:  branch  if  carry  clear 

bcs 

•  branch  if  carry  set 

beq 

:  branch  if  equals  zero 

bge 

.  branch  if  greater  than  or  equals  zero 

bgt 

:  branch  if  greater  than  zero 

bhi 

•:  branch  if  higher 

ble 

:  branch  if  less  than  or  equals  zero 

bis 

:  branch  if  lower  or  same 

bit 

;  branch  if  less  than  zero 

bffli 

branch  if  minus 

bne 

•.  branch  if  not  equal  zero 

bvc 

•.  branch  if  overflow  dear 

bvs 

•.  branch  if  overflow  set 

bpl 

:  branch  if  plus 

bsr 

branch  to  subroutmc 

jmp 

'  jump 

jsr 

■:  jump  to  subroutine 

nop 

.  no  operation  (takes  a  small  amount  of : 

rti 

return  from  interrupt 

rts 

:  return  from  subroutine 

swi 

*•  software  interrupt 

wai 

•  wait  for  interrupt 

Dummy  Mnemonics  Added  to  Simplify  ELLA  Program; 

irq 

••  mierrupt  request 

nmi 

'  non-maskable  interrupt 

Condition  Code  Register  Manipulation  Operations: 

clc 

’  clear  carry  flag 

cll 

clear  interupi  mask 

civ 

clear  overflow  flag 

sec 

SCI  carry  flag 

sei 

'  set  mterrupt  mask 

scv 

.  SCI  overflow 

tap 

'  transfer  accumulator  a  mto  cc  register 

tpa 

transfer  cc  register  mto  accumulator  a 

a  accumulator  a  b  :  accumulator  b  m  contents  of  memory  location 

(m  1)  contents  of  next  memory  location  after  m  x  :  x  register  sp  '  stack  pomier 

f,:  high  byte  low  byte 

N3  Many  Mnemomcs  can  have  more  than  one  addressing  mode  associated  with  them  T^ere  are  altogether 
197  vahd  nmemomc/adressmg  mode  combmations  plus  irq  and  ami,  although  there  arc  only  107  such 
mnem'^mcs  listed  (plus  2  dummy  mnemomcs). 
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Glossary: 

Accumulator* 

Addressing  mode. 

Assembler  code. 

Condition  codes 
regbter: 

Direct  addressing 

Extended  addressing 

Immediate  addressing 
Impbed  addressing 
Indexed  addressuig 

Interrupt 


Interrupt  request 

Mnemonic 

Non-maskable  mterrupt 


An  accumulator  is  a  register  on  which  a  large  number  of  arithmetic  and  logical 
operations  may  be  carried  out. 

The  addressing  mode  tells  the  microprocessor  where  to  get  the  data  for  its  next 
operation  Six  addressing  modes  are  implemented  on  the  Motorola  6800.  These  are 
immediate^  direct^  indexed,  extended,  implied  and  relative 

Low  level  language  which  is  made  up  of  mnemonics  plus  other  symbols  to  indicate 
the  addressing  mode. 

A  register  which  is  affected  by  most  arithmetic  and  logical  functions,  and  also  by 
interrupts.  On  the  6800  it  is  made  up  of  6  flags,  which  indicate  when  true  (bit  5  first, 
bit  0  last)  that:  a  half  carry  from  bit  3  has  occurred,  interrupt  requests  are  to  be 
ignored,  the  result  was  negative,  the  result  was  zero,  the  operation  caused  a  2’s 
complement  overflow  and  the  operation  caused  a  carry. 

The  address  of  the  data  is  ^'.^n  by  the  value  in  the  next  location  after  the  op-code, 
(therefore  it  is  in  the  range  &0000  &00ff). 

The  address  of  the  data  is  in  the  next  two  locations  ai^er  the  op-code  (high  byte 
first) 

The  data  comes  from  the  next  memory  location  after  the  op-code 
No  data  is  necessary  e.g  clra 

The  address  of  the  data  is  the  index  register  plus  an  offset  wLch  is  in  the  next 
location  after  the  op-code 

An  interrupt  causes  the  microprocessor  to  stop  what  it  is  doing  after  finishing  the 
current  mstruction,  and  to  jump  to  a  location  which  is  defined  at  a  particular 
location  m  memory  When  the  routme  is  finished  (with  an  rti)  it  jumps  back  to 
where  it  was  when  the  mterrupt  occurred,  with  the  same  values  m  all  the  registers 
as  before  the  interrupt  This  is  achieved  by  dumping  all  the  registers  on  the  stack 
as  (he  mterrupt  is  initiated,  and  readmg  them  back  as  the  mterrupt  rouime 
terminates  There  are  three  ways  of  initiating  an  interrupt  on  the  6800,  a  software 
interrupt  (swi),  and  two  hardware  interrupts 

If  the  mterrupt  mask  bit  m  the  condition  codes  register  is  zero,  a  zero  on  the 
mterrupt  request  hoe  causes  an  interrupt  to  occur. 

A  mnemonic  is  a  three  or  four  letter  word  which  defines  the  operation  to  be 
performed  by  the  microprocessor  The  words  are  chosen  to  be  user  fnendly  and 
must  be  converted  mto  opKodes  before  they  can  be  stored  m  memory  or  used  by 
the  microprocessor 

A  non-maskable  interrupt  causes  an  interrupt  whatever  the  state  of  the  condition 
codes  register 


50 


Op-code- 

Register: 

Relative  addressing- 

Software  mtemipt. 
Stack. 


Von  Neumann 
microproccssor- 


Hcxadecimal  representation  of  an  8-bit  number  which  is  an  mstruction  to  a 
microprocessor.  An  op-code  is  unique,  defining  both  the  addressing  mode  and  the 
mnemonic. 

A  register  is  a  store  for  information  on  the  microprocessor  A  limited  number  of 
arithmetic  and  logical  functions  are  possible  sud  as  increment,  decrement,  or 
setting  particular  bits  to  be  true  or  false. 

The  address  to  branch  to  is  the  start  of  the  next  instruction  plus  an  offset  which 
comes  from  the  location  after  the  current  opcode. 

A  particular  opcode  is  used  from  within  the  program  to  call  the  mtemipl  routine 

A  stack  is  an  area  of  memory  used  for  storing  data,  which  is  accessed  by  the  stack 
pointer.  The  stack  pointer  (tp)  always  points  to  the  first  available  unused  location 
When  a  piece  of  data  is  pushed  to  the  stack  it  is  placed  at  the  memory  location 
sp,  and  sp  is  then  decremented.  When  a  piece  of  data  is  pulled  from  the  stack 
the  stack  pointer  is  first  incremented,  then  the  data  is  read  The  location  deifned 
by  sp  is  now  free  for  new  data  to  be  pushed,  but  still  contains  the  old  data  The 
stack  is  therefore  a  last-in  first-out  (LIFO)  store 


A  microprocessor  m  which  the  program  and  data  share  a  common  address 
space 
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